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
Создаем шапку таблицы, записываем название месяца "Январь" и получаем название остальных месяцев "перетаскиванием" ячейки за правый нижний угол. Заносим для первых двух месяцев значения 5 и 6, а в ячейке для суммы указываем нужную формулу. Далее пишем в остальные месяцы что хотим, следя за тем, чтобы в ячейке суммы получилось 100. Не получается - корректируем значения по месяцам. Чистый подбор.