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

Варя200706 Варя200706    3   06.04.2021 17:23    1

Ответы
wwwshev24 wwwshev24  06.04.2021 17:30

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

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика