Question

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

Answer 1

var a,s,i,b :integer;
begin
readln(a);
while a<>0 do begin
readln(a);
s:=s+a;
i:=i+1;
end;
writeln(s,'  ',i);
end.