Регистрация
katiaj07102004
11.10.2021 06:16
Информатика
Есть ответ 👍

Напишите программу, которая в последовательности натуральных чисел определяет максимальное однозначное число. Кроме того, если есть число 19, то выводит «Yes», если его нет, то выводит «No». Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0. (0-признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 10 000

252
476
Посмотреть ответы 3

Ответы на вопрос:

дара23
дара23
4,4(59 оценок)

Возможное решение:

var n,i,a,min: integer;

begin 

 readln(n);

 min:=30001

 for i:=1 to n do

    begin

      readln(a)

      if (a mod 10 = 4) and (a < min)

           then min:= a;

    end;

 writeln(min)

end.

Gendalf1875
Gendalf1875
4,8(62 оценок)

yes

Объяснение:

Диана10293
Диана10293
4,7(29 оценок)
Ясчитаю, что развитие сети интернет к исчезновению традиционных медиа, так как эта сеть становится более доступной и пользоваться ей гораздо проще. это легко доказать, взяв хотя  бы промежуток времени совсем незначительный, например 2004 год - 2014 год. что мы наблюдали в то время и что наблюдаем сейчас? интернет уже, практически на 90%, вытеснил использование традиционных медиа. а, как известно, интернет не перестает развиваться, и уже кратчайшие сроки традиционные медиа будут полностью замещены.

Популярно: Информатика