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

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

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

Question

Корнейка

29 февраля, 19:05

+4

Ответы (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.