Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Arina200531
27.07.2020 01:16 •
Информатика
Напишите программу, позволяющую по последней цифре трехзначного числа определить последнюю цифру его произведения на число 3 (например, для числа 234, последней цифрой при произведении на 3 будет цифра 2)
Показать ответ
Ответ:
данил2078
08.07.2020 01:59
Для сего надо лишь умножить последнюю цифру на 3 и выделить кол-во единиц же
var
a: integer;
begin
readln(a);
writeln((a mod 10 * 3) mod 10);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
аня2933
17.12.2021 09:55
Придумайте програму, в якій з однієї функції викликається друга. При цьому жодна з них нічого не повертає в основну гілку програми, обидві повинні виводити результати...
lord50
22.11.2020 01:59
Вводятся два числа. Если числа больше 10, программа находит их произведение и выводит его на экран, иначе находит их сумму и выводит ее на экран....
Lizzka1301
11.11.2020 01:42
Производилась двухканальная (стерео) звукозапись с частотой дискретизации 64 кгц и 24-битным разрешением. в результате был получен файл размером 120 мбайт, сжатие данных...
никита3491
11.11.2020 01:42
Надо про каждую строчку рассказать, что это и что значит. program fury; const n=10; var a: array[1..n]of integer; min,max,i,s: integer; begin for i: =1 to n do read(a[i]);...
katyabicheva
11.11.2020 01:42
Решить ! створіть і виведіть масив з 20-ти випадкових цілих чисел з діапазону (0; 100),використовуючи функцію random(100).скільки вньому є чисел більших, ніх 20 і менших,...
danilchirkov0
20.06.2022 05:32
Доказать равносильность...
Арина999111
09.01.2023 03:31
Excel программасын іске қосу алгоритмін айтып беріңдер....
victoria223
02.08.2020 16:51
Багандардын аныктауга болатын ен мумкин ман...
Vovan3256
11.02.2023 17:31
Работа в Паскале. Найти сумму N произвольных чисел, вводимых с клавиатуры, пока не введёте ноль...
LEXSUS18
16.01.2021 09:18
1){3/x+2/t=6, {2\х-3/у=2,5; 2){6/х+4/у=6, {8\х-2/у=-1;ежды можно ответь ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a: integer;
begin
readln(a);
writeln((a mod 10 * 3) mod 10);
end.