На паскале составить программу которая запрашивает у пользователя целое число и выводит квадрат

Question

Любава

12 сентября, 20:41

+3

Ответы (2)

Знаете ответ?

Авдий · Answer 1

Var i: integer;

begin

write ('введите число ') ;

readln (i) ;

write ('квадрат этого числа = ', I*i)

end.

Колюха · Answer 2

Uses crt;

var n:integer;

begin

writeln ('Введите число: ') ;

readln (n) ;

writeln ('Квадрат числа n=', n*n) ;

end.