Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
avruchka7
21.05.2023 06:57 •
Информатика
Написать программу на pascal, которая сообщает о равенстве или не равенстве последних цифр трех заданных чисел. заранее . если можно, то с
Ответ:
daryatabuewa
07.10.2020 17:35
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=readinteger3('a,b,c->'); a:=a mod 10 ; b:= b mod 10;
c:=c mod 10;
if (a=b) and (b=c) then writeln('последних цифры равны ') else
writeln('последних цифры не равны ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ariiiiiaha
30.12.2021 19:11
Синформатикой, 25. времени нету искать понятия. заранее . 1. что такое объект? 2. что такое понятия? 3. что такое система? 4. какие имена объектов называются единичными,...
рома1344
24.02.2023 12:05
1. Дано целое число. Если оно является положительным то прибавить к нему 12, в противном случае вычесть из него 1. Вывести полученное число. 2. Ввести два числа. Вычесть...
Ks1mak
12.03.2020 13:58
Работа каких операторов дает верный ответ? Укажите один или несколько правильных вариантов ответа: if i / 2 0 then writeln (i, четное ) else writeln (i, нечетное );...
Jenco
31.05.2020 01:07
Составить программу вывода 8 целых чисел на экран C++...
Yana2502
28.09.2020 13:20
Проверьте, как готовые темы оформления в вашей программе для подготовки презентации будут смотреться через проектор. Нравится ли вам результат?...
annalonina
04.10.2021 08:53
За что отвечает вкладка скрипт в программе Scratch...
Ученица950
30.04.2020 10:55
Какой процесс обеспечивает запись звука на ПК?...
Мarshmallow
23.05.2021 19:06
Складіть проект у середовищі scratch 2, у якому виконавець намалює три квадрати різних кольорів зі сторонами 100 кроків, якщо до нього доторкається вказівник миші....
ked00p08uz1
18.01.2022 00:26
Как сделать работу со списками...
Andrey200694
10.05.2020 17:50
Что понимается под словом блок...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=readinteger3('a,b,c->'); a:=a mod 10 ; b:= b mod 10;
c:=c mod 10;
if (a=b) and (b=c) then writeln('последних цифры равны ') else
writeln('последних цифры не равны ');
end.