Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, сколько в...

Question

Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, сколько в последовательности чисел 7.
Пример:
Входные данные 1 7 7 9 1 0
Правильный ответ 2

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(t->t=7).Count());
end.

Answer 2

Program n1;
Uses CRT;
Var s,i: integer;
begin
ClrScr;
Writeln('Введите последовательность. Для остановки введите 0 ');
Repeat
readln(i);
If (i mod 7=0)or(i mod 10=0) then s:=s+i;
until i=0;
writeln('Сумма =',s);
readln
end.