Составить программу, по которой компьютер десять раз запросит ввод целых чисел и в результате сообщит, сколько среди введенных чисел четных и сколько нечетных
Составить программу, по которой компьютер десять раз запросит ввод целых чисел и в результате сообщит, сколько среди введенных чисел четных и сколько нечетных
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
var i,a,ch,nch:integer; begin ch:=0; nch:=0; For i:=1 to 10 do begin writeln ('Введите целое число'); readln (a); If a mod 2=0 then ch:=ch+1 else nch:=nch+1; end; writeln ('Четных чисел=',ch); writeln ('Нечетных чисел=',nch); end. |