Лінійне алгоритми

program P1;

uses crt;
var a,b,p:real;
BEGIN
writeln('a,b,p:');
write('a(sm)->2.5');
read(a);
write('b(sn)->3.5');
read(b);
p:=(a+b)*2;
writeln('p=',p:1:2,'sm.');
END.












Складіть програму обчислення площі прямокутника (S=a*b).
program Plosa;
uses crt;
 var a,b,s: word;
 writeln('Plosa=',s,'кв. см.');

 BEGIN a:=5; b:=8; s:=a*b;

END. ...............................
Вхід a:=5; b:=8;
Вихід 40
Вхід a:= 3; b:= 6
Вихід 19
 Вхід a:= 3; b:= 6
Вихід 20









Складіть програму обчислення площі прямокутника (S=a*b).
program ploha_praymokytnika;

uses crt;
var a,b,s:word;
BEGIN
a:=5;b:=8;s:=a*b;
Writeln('Ïëîùà =',s,'kv.cm');

END.
вхід a:=5;b:=8;s:=a*b;
вихід 40
вхід a:=5;b:=6;s:=a*b;

вихід 30

Складіть програму обчислення площі прямокутника (S=a*b).
program ploha_praymokytnika;

uses crt;
var a,b,s:word;
BEGIN
a:=5;b:=8;s:=a*b;
Writeln('Ïëîùà =',s,'kv.cm');

END.
вхід a:=5;b:=8;s:=a*b;
вихід 40
вхід a:=5;b:=6;s:=a*b;

вихід 30