Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m.

1)begin
writeln('Введи длину и ширину прямоугольника c и m');
readln (c,m);
s:=c*m;
writeln('s=',s);
readln;
end.

2)var
c, m,s:word;
begin
writeln('Введи длину и ширину прямоугольника c и m');
readln (c,m);
s:=c*m;

3)var
c, m:word;
begin
writeln('Введи длину и ширину прямоугольника c и m');
readln (c,m);
s:=c*m;
writeln('s=',s);
readln;
end.

4)var
c, m,s:word;
begin
writeln('Введи длину и ширину прямоугольника c и m');
readln (c,m);
s:=c*m;
writeln('s=',s);
readln;
end.

Программа для вычисления площади прямоугольника на языке Паскаль может быть записана разными способами, но важно соблюдать правильную структуру кода и учесть типы данных. Рассмотрим каждый из предложенных вариантов.

1. Вариант 1:

   pascal
   begin
     writeln('Введи длину и ширину прямоугольника c и m');
     readln(c, m);
     s := c * m;
     writeln('s = ', s);
     readln;
   end.
   

   Этот код выглядит неполным, потому что не указаны переменные для сторон прямоугольника и площади. Кроме того, здесь не объявлены переменные типа word. В Паскале все переменные должны быть заранее объявлены, а также нужно указать тип данных для каждой из них. Этот вариант не будет компилироваться без исправлений.

2. Вариант 2:

   pascal
   var
     c, m, s: word;
   begin
     writeln('Введи длину и ширину прямоугольника c и m');
     readln(c, m);
     s := c * m;
   end.
   

   В этом варианте присутствует объявление переменных типа word, но не выводится результат на экран. Также отсутствует вывод для переменной s. Этот вариант работает с математической операцией, но не сообщает пользователю значение площади.

3. Вариант 3:

   pascal
   var
     c, m: word;
   begin
     writeln('Введи длину и ширину прямоугольника c и m');
     readln(c, m);
     s := c * m;
     writeln('s = ', s);
     readln;
   end.
   

   Этот код похож на предыдущий, но в нем не объявлена переменная для площади (переменная s). Это приведет к ошибке компиляции, так как переменная s не была заранее объявлена. Поэтому код в таком виде не будет работать.

4. Вариант 4:

   pascal
   var
     c, m, s: word;
   begin
     writeln('Введи длину и ширину прямоугольника c и m');
     readln(c, m);
     s := c * m;
     writeln('s = ', s);
     readln;
   end.
   

   Этот вариант — правильный, так как все переменные (для сторон прямоугольника и площади) объявлены корректно. В нем также есть вывод значения площади, что позволяет пользователю увидеть результат. Это рабочий и корректный код для вычисления площади прямоугольника.

Итог

Правильный и работающий вариант — это вариант 4. В нем правильно объявлены все переменные, произведена операция умножения для вычисления площади и корректно выведен результат.