Помогите 2 задачки сделать ** паскале1) с клавиатуры вводится последовательность чисел до...

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.

Comments

1) var i,x:integer;
begin
writeln('Введите число');
while i<>0 do
begin
readln(i);
if i mod 10 = 7 then x:=x+1;
end;
write(x);
end.

---

1) var i,x:integer;
begin
x:=0
writeln('Введите число');
readln(i);
while i<>0 do
begin
if i mod 10 = 7 then x:=x+1;
end;
writeln('количество чисел=',x);
end.
вот исправленная