Предмет: Информатика,
автор: aleksandr9422
с клавиатуры вводится последовательность целых чисел. Найти сумму чисел, посчитать количество чисел. Вывести полученные данные.
Hung1337:
Язык?
Ответы
Автор ответа:
1
Ответ:
var a:String;
i,sum:Integer;
begin
writeln('Введите последовательность чисел:');
readln(a);
a := a.Replace(' ', '');
writeln('Количество чисел:' + a.Length);
for i := 1 to a.Length do
sum := sum + strToInt(a[i]);
writeln('Сумма: ' + sum);
end.
Объяснение:
В начале я запросил последовательность чисел как строку, убрал все пробелы и посчитал длину самой строки, этим я узнал, сколько там чисел. Далее используя циклом посчитал сумму всех чисел.
Ввод:
1 2 3 4 5
Вывод:
Количество чисел: 5
Сумма: 15
Похожие вопросы
Предмет: Русский язык,
автор: katerina9898
Предмет: Русский язык,
автор: rfnz19
Предмет: Другие предметы,
автор: dilechka2005
Предмет: Информатика,
автор: borenka