Question

4.Данная программа находит площадь прямоугольника. Найдите ошибки и исправьте их.
Program ploshad;
Vara,b,s: real;
Begin;
Write (‘введите ширину - ’)
Readln(a);
Write (‘введите длину– ‘)
Readln(b);
S:=a/b;
Writeln (‘площадь прямоугольника– ‘, s);
End

Answer 1

Program ploshad;

var a,b,s: real; {пробел}

begin {после begin не ставится точка с запятой}

write (‘введите ширину - ’); {синтаксис}

readln(a);

write (‘введите длину– ‘); {синтаксис}

readln(b);

s:=a/b;

Writeln (‘площадь прямоугольника– ‘, s);

end. {обязательная точка после end}