LAIM L LAIM Регистрация 18 Авг 2013 Сообщения 84 Репутация 0 Спасибо 1 Монет 0 15 Июн 2016 #1 program a1; var a,s:integer; begin s:=0; repeat read(a); if (a mod 6=0) and (a mod 10=2) then s:=s+1 ; until a=0; writeln(s); end.
program a1; var a,s:integer; begin s:=0; repeat read(a); if (a mod 6=0) and (a mod 10=2) then s:=s+1 ; until a=0; writeln(s); end.
Dasdadsa D Dasdadsa Регистрация 7 Сен 2013 Сообщения 69 Репутация 0 Спасибо 0 Монет 0 15 Июн 2016 #2 Программа нормально работает, не вижу проблемы. Позитивный голос 0
hugeon H hugeon Регистрация 30 Апр 2013 Сообщения 66 Репутация 0 Спасибо 0 Монет 0 15 Июн 2016 #3 нужен текст задания Позитивный голос 0