Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ksenia2351
09.05.2023 02:17 •
Информатика
Склавиатуры вводится 10 целых чисел, найти наибольшее из чисел оканчивающихся на 7
Показать ответ
Ответ:
kinderlolo19999
06.10.2020 00:12
Var
A,i,Max:integer;
Begin
Max:=0;
For i:= 1 to 10 do
Begin
Read(a);
if (Abs(A) mod 10 = 7)and(A>Max) then Max:=A;
End;
WriteLn('Max = ',Max);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
annkhanenko23
05.11.2021 17:37
1. найти объем памяти, необходимый для хранения растрового графического изображения размером 640×640 пикселя с глубиной цвета 4 бита. 2. найти минимальный объем памяти достаточный...
танюха12354
26.06.2020 12:29
Гарантирую - запишите алгоритмическим языком нужно...
Анаша2018
12.01.2022 09:17
Океаны которые проходят через экватор...
Marvarick
12.01.2022 09:17
Чтотакое и нужна ли она в наше время?...
KEKSIK13317
12.01.2022 09:17
Найдите корни квадратного трехчлена 4x^2+9x-9...
superutkanosska22
12.01.2022 09:17
Какой океан находится полностью в северном полушарии...
milarudneva449
12.01.2022 09:17
Найдите наименьшее значение квадратного трехчлена x^2-8x+12...
GoldHorse
12.01.2022 09:17
Доклад по про илью муромца 4 класс...
buschckovaanas
12.01.2022 09:17
Найдите ошибки в предложениях исправьте и укажите причину появления 1 кондитер должность серьезная 2 мы старательно закрепляли первые скромные успехи, стремились, углубить...
81920346
12.01.2022 09:17
Складіть і запишіть текст-розповідь про прочитану книжку....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A,i,Max:integer;
Begin
Max:=0;
For i:= 1 to 10 do
Begin
Read(a);
if (Abs(A) mod 10 = 7)and(A>Max) then Max:=A;
End;
WriteLn('Max = ',Max);
End.