Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Seselia
10.08.2021 14:38 •
Информатика
Дано натуральное число, определите последнюю цифру этого числа! напишите программу для паскаля вас! )
Ответ:
tropinaksusha
30.06.2020 18:57
Program chik;
var n,a:integer;
begin
read(n);
a:=n mod 10;
writeln(a);
end.
здесь mod 10 делаем чтобы найти остаток от деления n на 10
при этом мы находим последнюю цифру
а если mod 100 сделать 2 последные цифры
mod 1000 три последные цифры
и т.д
0,0
(0 оценок)
Популярные вопросы: Информатика
vaierchik
31.05.2023 07:08
разобраться с задачи: 1 а) Мощность алфавита племени Тик-ток равна 64 символа. Найдите объем сообщения, (в Кбайтах), состоящего из 2048 символов. 2. Чему равен информационный...
linapetrenko
20.07.2021 03:46
PYTHON Вам нужно запросить у пользователя возраст. Добавить условие при котором возраст будет выводиться с правильным словом: год , года или лет . Т.е. 29 лет или 4 года ....
gustzhatetskiy
25.07.2021 05:00
Завтра нужно сдавать, подробно нужно скорость передачи данных по некоторому каналу связи равна 32 768бит/ с. передача текстового файла по этому каналу связи заняла 15 с.определите...
kseniy32
25.07.2021 05:00
Три ученика – саша, миша и леша – пришли домой из школы, и кто-то из них получил двойку. один из них всегда лжет, другой всегда говорит правду, а третий то говорит правду,...
flslskns
25.07.2021 05:00
Скорость передачи данных по некоторому каналу связи равна 256 000 бит/с. передача данных через это соединение заняла 2 минуты. определите информационный объём данных в килобайтах....
Sobaka20012001
18.12.2020 07:08
Нужна с кодом pascal. if k11 = k12 then begin if k12 = k13 then begin if k12 = х then goto win1 else goto win2; end; end; else goto showp1; выдает ошибку на последнем else...
00lom00
03.02.2020 07:07
В кодировке КОИ-32 каждый символ кодируется 32 битами. Оля написала текст (в нём нет лишних пробелов): «Is, for, pass, raise, return, finally — служебные слова языка программирования...
doda4i
26.08.2021 09:46
Чему будет равна переменная «c» после выполнения этой программы: a = 26 b = 6 b = a // b + b c = a % b + a...
CorrupteD
18.04.2022 19:17
тс информатикой, 1 и 2 задача...
Пулmn
13.10.2020 14:56
1. Перечислите основные этапы создания модели финансового проекта....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var n,a:integer;
begin
read(n);
a:=n mod 10;
writeln(a);
end.
здесь mod 10 делаем чтобы найти остаток от деления n на 10
при этом мы находим последнюю цифру
а если mod 100 сделать 2 последные цифры
mod 1000 три последные цифры
и т.д