После ввода N целых положительных чисел, программа вычисляет сумму и количество чисел кратных трем.
Решение:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
program cycles_2; uses crt; var n, i, threeK, threesum, x: integer; begin clrscr; write(' Количество чисел > '); read(n); threeK:=0; threesum:=0; for i:=1 to n do begin write(i, ' число > '); read(x); if x mod 3=0 then begin threesum:=threesum+x; threeK:=threeK+1; end; end; writeln(' Сумма чисел кратных трем: ', threesum); write(' Количество чисел кратных трем: ', threeK); readkey; end. |
Похожие записи: