Question

Перепишите программу вычисления периметра и площади прямоугольника на языке Паскаль, исправив ошибки: Program primer Var a, b, s, p: integer; Begin ; Writeln(‘Введите стороны прямоугольника =’ ReadLn(a,b); P=a+b; S=a×b; WriteLn(‘Площадь = ’s); WriteLn(‘Периметр=’p); End

Answer 1

Ответ:

Program primer; //добавили точку с запятой (отделяем операторов друг от друга)

Var a, b, s, p: integer;

Begin //убрали точку с запятой (после begin точка с запятой не ставится)

Write('Введите стороны прямоугольника = ');//добавили скобку и точку с запятой (после оператора write в скобках указывается что выводится на экран)

ReadLn(a,b);

P:=a+b;//добавили двоеточие (оператор присваивания  :=)

S:=a*b;//добавили двоеточие, заменили знак × на знак *  (звездочку - оператор умножения)

WriteLn('Площадь = ',s);//добавили запятую (при вводе и выводе переменные отделяются запятыми, вывод текста от переменных тоже)

WriteLn('Периметр = ',p);//добавили запятую

End.//добавили точку (окончания программы)

Объяснение:

Поправили ещё кавычки вместо знака ‘ поставила знак '

Заменили Writeln на Write в 4 строке, чтобы ввод осуществлялся в той же строке

Answer 2

Вот исправленная версия программы на языке Паскаль:

pascalCopy code
Program primer;
Var
  a, b, s, p: integer;

Begin
  Write('Введите стороны прямоугольника a и b: ');
  ReadLn(a, b);

  p := 2 * (a + b);
  s := a * b;

  WriteLn('Площадь = ', s);
  WriteLn('Периметр = ', p);
End.

Исправления, которые были внесены:

1. Заменил Writeln на Write при вводе текста для пользовательского ввода.
2. Добавил двоеточие после Program primer.
3. Заменил символ умножения × на обычный символ *.
4. Исправил регистр переменных P и S на строчные p и s.
5. Добавил пробелы вокруг операторов присваивания :=.
6. Исправил вывод площади и периметра, чтобы использовать переменные s и p.