Составить программу нахождения минимального элемента - вопрос №711689424 от новичок579 03.05.2023 02:13

Question

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

новичок579 · 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 ....