Написать программу, которая в последовательности трехзначных чисел определяет количество и сумму чисел. Первая и последняя цифра которых одинаковы.

Количество чисел неизвестно. Ввод оканчивается 0. На экране должно быть выведено количество и сумма таких чисел.

Question

Викторий

11 мая, 19:29

+2

Ответы (1)

Знаете ответ на вопрос?

Симона · Answer 1

Var a, s, i, b : integer;

begin

readln (a) ;

while a0 do begin

readln (a) ;

s:=s+a;

i:=i+1;

end;

writeln (s,' ', i) ;

end.