tim2003np0acpp
07.12.2022 11:09

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающихся на 7. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).в последовательности всегда имеется число, оканчивающееся на 7. количество чисел не превышает 100. введённые числа не превышают 1000. программа должна вывести одно число, минимальное число, оканчивающееся на 7.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
НикитаТим
21.07.2020 16:00
 var   a,min : integer;    
begin 
a := 5; 
min := 1000;   

While a <> 0 do 
 begin   
readln (a);   
if (a mod 10 =7) and (a < min ) then     
min := a;   
end;    
writeln (min); 
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота