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

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

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

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

textual
sum:=0;
readln(k);
for i:=1 to k do
 begin
  readln(a);
  if a>0 then
   sum:=sum+a;
 end;

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


СОХРАНИТЬ ССЫЛКУ