Задать вопрос
4 декабря, 10:02

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

+1
Ответы (1)
  1. 4 декабря, 12:45
    0
    Var

    a, i, n:integer

    begin

    Readln (a);

    for i:=a to 1 do

    n:=n+I;

    writeln (n);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Вводится одно целое число не превосходящие 104 подсчитать сумму чисел до 1 и до 104 ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы