1. Информатика
  2. Получить сумму всех чисел

Получить сумму всех чисел от 1 до n. с циклической программы.

HOUSEMAN222 HOUSEMAN222    1   28.09.2019 03:00    0

Ответы
coffeepro80 coffeepro80  08.10.2020 23:48

uses crt;

var i,n,s:integer;

begin

read(n);

s := 0;

for i := 1 to n do begin

s := s + i;

end;

writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Katuchka001 Katuchka001  24.12.2021 01:21
Опиши последовательность действий создания модели дома в sketchup...
ирка137 ирка137  24.12.2021 01:40
Даны три числа. увеличить максимальное из чисел на 5(с++) ,...
fyxfhltn fyxfhltn  14.04.2021 21:22
1. У чому полягає особливість пошуку першого елемента лінійної таблиці, який відповідає заданій умові? 2. Як описати алгоритм знаходження суми чи кількості табличних елементів,...
vik5611 vik5611  15.03.2021 16:09
с информатикой анимешники есть? ♡​...
EmiliKotik123 EmiliKotik123  15.03.2021 16:08
Значение слов and, or, not... * И, или, неЕсли, то, иначеИли, если, неИ, то, если умоляю​...
Никита92111 Никита92111  15.03.2021 16:07
Чему будет равно значение переменной с после выполнения программы? a = b = 1 a *= 10 c = a / (2 * b)...
pashacherepano pashacherepano  15.03.2021 16:07
, решить эти не понятные для меня задания, надо...
АннаКольцева АннаКольцева  15.03.2021 16:07
Задание. Напишите выражкние на языке программы Phyton Информатика ​...
tim2003np0acpp tim2003np0acpp  20.10.2019 13:18
Выбросить четные по значению цифры в данных натуральныхтрехзначных числах а и в и найти сумму полученных чисел. pascal abc...
dianamihalenko9 dianamihalenko9  18.06.2020 10:53
Преобразуем произведение в Формулу суммы и полученное выражение записываем только в терминах Косинуса 2sin4x*cosx...

Популярные вопросы