Не могу решить уже который час
На каком языке программирования?
паскаль
Тебе нужен цикл for и if
это я знаю
мне бы полностью ее написали, а то я в этом вообще ничего не понимаю
var a,b: integer;
begin
b:=30000;a:=1; while a<>0 do begin
readln (a); if(( a<>0)and(a mod 7=0) and (a mod 10<>4)) then if a
write('b=',b)
end.