Задачі на обчислення з лінійними числами

1. Складіть програму обчислення площі поверхні куба (S=6*a*a).

program plosha;

uses crt;
Var a,b,s:word;

BEGIN
a:=5; b:=8; s:=a*b;
Writeln('plosha =',s,'kv.sm.');

END.

1. Складіть програму обчислення об’єму паралелепіпеда (V=a*b*c).

program poverhnya_paralelepipeda;

uses crt;
Var a,b,c,s:word;

BEGIN
a:=5; b:=8; c:=6;  s:=a*b*c;
Writeln('poverhnya paralelepipeda = ',s,'kv. sm.');
END.

1. Складіть програму обчислення периметра прямокутника (P=(a+b)*2).

program P3;

uses crt;
Var a,b,s:word;

BEGIN
readln(a);readln(b);
s:=a*b;
Writeln('plosha=',s,'kv.sm.');
readln;
END.



Складіть програму обчислення площі поверхні куба ( S=6*a²). Екран повинен мати вигляд:program P4

uses crt;

Var a,b,p:real;

BEGIN

writeln('a,b,p:');

write('a(sm)->2.5');read(a);

write('b(sm)->3.5');read(b);

p:=(a+b)*2;

writeln('p=',p:1:2,'sm.');

END.