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

Question

Информатика

Анатолия

14 сентября, 06:08

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

+5

Ответы (2)

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

Василько · Answer 1

Var a, b: longint;

begin

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

readln (a) ;

a:=a mod 10;

b: = (a*a) mod 10;

writeln ('последняя цифра квадрата числа - > ', b) ;

end.

Вива · Answer 2

Var i: Integer;

begin

write ('Число: ') ;

readLn (i) ;

i : = i mod 10;

writeLn ('Цифра квадрата = ',

sqr (i) mod 10) ;

end.