Складіть програму обчислення площі прямокутника (S=a*b).
program Plosa;
uses crt;
var a,b,s: word;
BEGIN
a:=5; b:=8; s:=a*b;
writeln('Plosa=',s,'кв. см.');
END.
...............................
Вхід a:=5; b:=8;
Вихід 40
Вхід a:= 4; b:= 5
Вихід 20
Вхід a:= 5; b:= 5
Вихід 25
Немає коментарів:
Дописати коментар