Question

Что здесь сделано не правильно? ​

Answer 1

Ответ: всё, буквально каждая строка

2 строка:

var a, b, s, p: integer;

4 строка:

writeln("введите стороны прямоугонльника");

5 строка:

read(a, b);

6 строка: (не нужна)

p := a + b;

7 строка:

s := 2 * p;

8 строка:

writeln("площадь прямоугольника равна", s);

9 строка:

end.

Правильно:

var a, b, s: integer;

begin

writeln("Введите стороны прямоугольника: ");

read(a, b);

s := a * b;

writeln("Плозадь прямоугольника равна", s);

end.

p.s. ты хоть о чём то думал в то время как писал это? даже формула площади прямоугольника у тебя получилась 2 * (a + b) (ПЕРИМЕТР)