Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
avrora26
01.06.2020 05:29 •
Информатика
Написать программу, которая по последней цифре числа позволяет определить последнюю цифру его квадрата.
Показать ответ
Ответ:
dani2d
17.07.2020 22:52
Var a, b: longint;
begin
write ('введите число -> ');
readln (a);
a:=a mod 10;
b:=(a*a) mod 10;
writeln ('последняя цифра квадрата числа -> ',b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alskyuq
18.05.2023 14:51
Составить программу на языке ! с клавиатуры вводится целое число.определить кол-во цифр в нем ,сумму его цифр ,произведение его цифр , среднее арифметическое его цифр , сумму...
Maksgeem
23.04.2020 13:13
Перевести без калькулятора: 128*1024*128*128: 12 бит-кбайт...
koshuba2017
09.08.2022 03:57
Составить блок схему и программу на языке паскаль....
nastyacrew
15.02.2020 18:58
Рассмотрите код программы: a=4; b=2; c=6a=(ab)*cprint(a)Что выйдет в результате выполнения данного кода?...
serezhenkoui
16.12.2022 07:18
Задана последовательность: 2/5, 4/5, 6/5, *i/5а)вывести на экран первые n элементов, где n вводится склавиатуры; b)вывести на экран все элементы, меньше числа а, введенного...
Tonibaskakov
11.04.2023 01:57
Выбери правильный ответа) запросб) отчёт в) форма...
yanochka13kol
30.03.2021 08:54
Решить на программирование в abc pascal. дано n чисел. найти сумму отрицательных чисел кратных 4. (x от -30000 до +30000)...
stentani97
18.01.2021 01:45
пераказ по белорусскому незвычайнае гнядзечка молю...
хіха
09.01.2021 14:03
Вот матинде колданылган деректи, дерексиз зат есимдерди терип жаз...
tatulia32
10.07.2022 13:48
Допишите уравнения реакций с участием водорода и кислорода и расставьте коэффициенты Заполните пропуски, указав в каждом окошке или коэффициент (отличный от 1), или формулу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write ('введите число -> ');
readln (a);
a:=a mod 10;
b:=(a*a) mod 10;
writeln ('последняя цифра квадрата числа -> ',b);
end.