Var a: array[1..8] of integer; i,n: integer; begin for i: =1 to 8 do readln(a[i]); for i: =1 to 8 do begin if a[i] mod 2=0 then inc(n); end; writeln(n); end.
Спасибо
Ответ дал: Гость
program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.
Популярные вопросы