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

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

Question

Люсиша

18 декабря, 18:11

+4

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