Предмет: Информатика, автор: asdaassd

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

Ответы

Автор ответа: Alexroll
0
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.
Похожие вопросы
Предмет: Геометрия, автор: mariagricaj09
Предмет: Физика, автор: fOrt1x
Предмет: Алгебра, автор: kristinavasile2