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

Question

Ануфрий

28 августа, 12:06

+1

Ответы (1)

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

Марлеся · Answer 1

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

var x: integer;

begin

readln (x);

x : = x mod 10;

writeln ('>', x);

x : = sqr (x);

writeln ('>', x);

end.