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

Question

Радослава

25 ноября, 01:58

+1

Ответы (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.