Дано целое число. Напишите программу, которая выводит на экран последнюю цифру данного числа, затем возводит её в квадрат и выводит на экран монитора результат

Question

Грета

19 июля, 19:12

+4

Ответы (1)

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

Семион · Answer 1

Через mod можно)

var x: integer;

begin

readln (x) ;

x : = x mod 10;

writeln ('>', x) ;

x : = sqr (x) ;

writeln ('>', x) ;

end.