Question

Запиши программу в Паскале для вычисления площади прямоугольника со сторонами 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.

Answer 1

Возможный вариант решения:

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.