Сделать программу без массива, пожалуйста!!! Вводится последовательность целых чисел; 0 -...

Question

Сделать программу без массива, пожалуйста!!!

Вводится последовательность целых чисел; 0 - конец последовательности. Определить количество чисел, оканчивавшихся на цифру 7

Comments

как знать сколько чисел вводится???

---

в условии сказано только: вводится последовательность не нулевых целых чисел, положительных и отрицательных; 0 конец последовательности

Answer 1

вроде так
var i,x:integer;
begin
x:=0; i:=1;
while i <> 0 do
begin
readln(i);
if i mod 10 = 7 then x:=x+1;
end;
write(x);
end.

Comments

спасибо