Составить программу нахождения минимального элемента - вопрос №116901017 от Murat20061 12.05.2022 19:30

Question

Информатика: Составить программу нахождения минимального элемента кратного 7 среди вводимых с клавиатуры целых трехзначных чисел. Числа вводятся до тех пор, пока не введено число 0

Murat20061 · Answer

program z1;var s, a:Integer;begin a:=999;readln(s);while s 0 do beginif (s mod 7 =0) and (s a) then a:=s;readln(s);end;writeln(a);end ....