1. Информатика
  2. Вводится одно целое число

Вводится одно целое число не превосходящие 104 подсчитать сумму чисел до 1 и до 104

gladchenko77 gladchenko77    1   26.05.2019 16:00    3

Ответы
Qwertysiq Qwertysiq  23.06.2020 03:27
Var
a,i,n:integer
begin
Readln(a);
for i:=a to 1 do
n:=n+I;
writeln(n);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Marinr Marinr  20.11.2020 08:33
Пусть отдельные геометрические фигуры на диаграмме Венна соответствуют зонам истинности высказываний А, В, С: Какому логическому выражению соответствует заштрихованная часть плоскости?...
leo00000 leo00000  20.11.2020 08:21
ЭКСТРЕННО! Выполняла задание на платформе электронном тетради, но учитель прислала сообщение, что с ошибкой сделала. Решите объясните по возможности, как нужно действовать для решения...
Destroyer0 Destroyer0  20.11.2020 08:20
Составьте программы рисования символов П а также других фигур,состоящих из горизонтальных и вертикальных отрезков.Отправьте фотку...
CrazeDogi CrazeDogi  20.11.2020 08:20
Что такое обьект управления ​...
nikita57551 nikita57551  30.11.2021 15:31
Для заданной функции f(x,y,z): 1. выяснить, какие ее переменные являются фиктивными, а какие - существенными; 2. выразить функцию формулой, зависящей только от существенных переменных....
steeg99 steeg99  30.11.2021 15:33
если вы вдруг знаете решите (( искренне !. на первой фотографии задание, которое нужно решить, а на второй фотографии как должно примерно получиться!...
Lichnosti Lichnosti  30.11.2021 15:33
определить значение =И(ИЛИ(НЕ(A2+C1 10)); HE((A2/2) 14)) при a) A20: 10; C1: 1. b) A2: 2; C1; -2...
Nastya7654321 Nastya7654321  26.10.2019 19:42
Ютуб задал такой вопрос ответ на него нужен нарушение авторских прав происходит в случае, если произведение, защищенное авторским правом, без разрешения его владельца: a) воспроизведенные...
anilop15 anilop15  26.10.2019 19:47
Впитоне, надо сделать программу которая перебирает элементы и говорит палиндром это слово или нет. она должна начинаться так: word = input()for i in word: if i = word[-1]и продолжить....
selenkovaanasta selenkovaanasta  26.10.2019 19:51
Найти все двузначные числа, которые заканчиваются на 0 и 5.(паскаль) циклом с предусловием....

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