Напишите программу вычисляющую площадь квадрата. Стороны пользователь вводит с клавиатуры

Question

Информатика

Митродора

3 ноября, 05:12

Напишите программу вычисляющую площадь квадрата. Стороны пользователь вводит с клавиатуры

+5

Ответы (1)

Знаете ответ на вопрос?

Мишата · Answer 1

var a, S:integer;

begin

S:=1;

writeln ('Введите сторону квадрата') ;

readln (a) ;

if a>0 then

S:=S*a*a

else

writeln ('Некорректные данные') ;

writeln ('Площадь квадрата равна ', S) ;

end.