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

Question

Любава

31 января, 11:50

+4

Ответы (2)

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

Колюха · Answer 1

Uses crt;

var n:integer;

begin

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

readln (n) ;

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

end.

Авдий · Answer 2

Var i: integer;

begin

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

readln (i) ;

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

end.