Найти сумму чисел от 1 до 100 в программе паскаль abc

9 Фев 2020 в 19:41
145 +2
0
Ответы
1

program SumNumbers;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 100 do
begin
sum := sum + i;
end;

writeln('Сумма чисел от 1 до 100: ', sum);
end.

18 Апр 2024 в 17:43
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир