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

Question

Информатика

Лемира

8 апреля, 23:05

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

+3

Ответы (2)

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

Иваха · Answer 1

Var i: Integer;

begin

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

readLn (i) ;

i : = i mod 10;

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

sqr (i) mod 10) ;

end.

Алюся · Answer 2

Var a, b: longint;

begin

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

readln (a) ;

a:=a mod 10;

b: = (a*a) mod 10;

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

end.