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

Question

Информатика

Лела

28 марта, 05:14

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

+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.