Предмет: Информатика,
автор: asdaassd
Написать программу, которая в последовательности трехзначных чисел определяет количество и сумму чисел. Первая и последняя цифра которых одинаковы.
Количество чисел неизвестно. Ввод оканчивается 0. На экране должно быть выведено количество и сумма таких чисел.
Ответы
Автор ответа:
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.
begin
readln(a);
while a<>0 do begin
readln(a);
s:=s+a;
i:=i+1;
end;
writeln(s,' ',i);
end.
Похожие вопросы
Предмет: Химия,
автор: yma80745
Предмет: Математика,
автор: sofiaemelanova359
Предмет: Геометрия,
автор: mariagricaj09
Предмет: Физика,
автор: fOrt1x
Предмет: Алгебра,
автор: kristinavasile2