fork download
copy 
  1. program LinearStructure;
  2. var
  3.   a, b, sum, diff, prod, quot: real;
  4. begin
  5.   writeln('=== Програма лінійної структури ===');
  6.  
  7.   a := 8.5;
  8.   b := 2.5;
  9.  
  10.   sum := a + b;
  11.   diff := a - b;
  12.   prod := a * b;
  13.   quot := a / b;
  14.  
  15.   writeln('Задані числа: a = ', a:0:2, ', b = ', b:0:2);
  16.   writeln;
  17.   writeln('--- Результати ---');
  18.   writeln('Сума = ', sum:0:2);
  19.   writeln('Різниця = ', diff:0:2);
  20.   writeln('Добуток = ', prod:0:2);
  21.   writeln('Частка = ', quot:0:2);
  22.  
  23.   writeln;
  24.   writeln('Програму завершено.');
  25. end.
  26.  
Success #stdin #stdout 0s 5292KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
=== Програма лінійної структури ===
Задані числа: a = 8.50, b = 2.50

--- Результати ---
Сума = 11.00
Різниця = 6.00
Добуток = 21.25
Частка = 3.40

Програму завершено.
https://ideone.com/gjrb02
language:
Pascal (fpc 3.0.4)
created:
12 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!