Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и n. var
c, n,s:word;
begin
writeln('Введи стороны прямоугольника c и n');
readln (c,n);
s:=c*n;
var
c, n,s:word;
begin
writeln('Введи стороны прямоугольника c и n');
readln (c,n);
s:=c*n;
writeln('s=',s);
readln;
end.
begin
writeln('Введи стороны прямоугольника c и n');
readln (c,n);
s:=c*n;
writeln('s=',s);
readln;
end.
var
c, n:word;
begin
writeln('Введи стороны прямоугольника c и n');
readln (c,n);
s:=c*n;
writeln('s=',s);
readln;
end.
Возможный вариант решения:
function main(): integer;
begin
var c: cardinal:= ReadInteger('Введите сторону c:');
var n: cardinal:= ReadInteger('Введите сторону n:');
'Площадь прямоугольника: '.Concat((c*n).ToString).Println();
main:= -1;
end;
begin main(); end.
Допустим и следующий код:
var c,n: integer;
begin
writeln('Введи стороны прямоугольника c и n');
readln (c,n);
writeln('s=',c*n);
readln;
end.