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.

Answer 2

Ваша программа на Паскале для вычисления площади прямоугольника выглядит правильно. Однако вам не нужно объявлять переменные c, n и s три раза. Достаточно объявить их один раз в начале программы. Вот исправленная версия программы:

pascalCopy code
program CalculateRectangleArea;
var
  c, n, s: word;

begin
  writeln('Введи стороны прямоугольника c и n');
  readln(c, n);
  s := c * n;
  writeln('Площадь прямоугольника s = ', s);
  readln;
end.

Эта программа позволит вам ввести значения сторон c и n прямоугольника, затем вычислит и выведет его площадь.