Помогите 2 задачки сделать на паскале

1) с клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти количество чисел во введенной последовательности, оканчивающихся на цифру 7.

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

Question

Моша

26 ноября, 01:32

+2

Ответы (1)

Знаете ответ?

Препедигна · Answer 1

1) var i, x:integer;

begin

i:=1;

while i0 do

begin

readln (i) ;

if i mod 10 = 7 then x:=x+1;

end;

write (x) ;

end.