Определить количество четных чисел, введенных до ввода числа, кратного k - Turbo Pascal

Формулировка задачи:

Вводятся произвольные целые числа. Определить: а) количество четных чисел, введенных до ввода числа, кратного k; б) сумму первых k положительных чисел.


textual

Код к задаче: «Определить количество четных чисел, введенных до ввода числа, кратного k - Turbo Pascal»

sum:=0;
readln(k);
for i:=1 to k do
 begin
  readln(a);
  if a>0 then
   sum:=sum+a;
 end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.800 из 5

Источник
Похожие ответы