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

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

Question

Ленин

1 октября, 00:22

+1

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