Литвинов
6 год назад
Написать программу, позволяющую по последней цифре числа определить последнюю цифру его квадрата.
ОТВЕТЫ
Meop
Jul 9, 2019
// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=Arr(0,1,4,9,6,5,6,9,4,1);
var i:=ReadInteger(Введите натуральное число:) mod 10;
Writeln(Последняя цифра квадрата введенного числа- ,a[i])
end.
Пример
Введите натуральное число: 76649
Последняя цифра квадрата введенного числа- 1
// Внимание! Если программа не работает, обновите версию!
begin
var a:=Arr(0,1,4,9,6,5,6,9,4,1);
var i:=ReadInteger(Введите натуральное число:) mod 10;
Writeln(Последняя цифра квадрата введенного числа- ,a[i])
end.
Пример
Введите натуральное число: 76649
Последняя цифра квадрата введенного числа- 1
294
Смежные вопросы:
