Составить программу нахождения минимального элемента - вопрос №116901017 от 21.03.2023 10:00

Question

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

 · 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 ....