Question

Помогите 2 задачки сделать на паскале
1) с клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти количество чисел во введенной последовательности, оканчивающихся на цифру 7.
2) Дано целое число N. Выяснить, есть ли в записи этого числа хотя бы одна пара одинаковых подряд идущих цифр. Например, для числа 3221 - ответ положительный, для числа 121 - ответ отрицательный

Answer 1

1) var i,x:integer;
begin
i:=1;
while i<>0 do
begin
readln(i);
if i mod 10 = 7 then x:=x+1;
end;
write(x);
end.