М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
macha2017
macha2017
14.02.2023 10:02 •  Информатика

Найти сумму всех целых чисел от 1 до n. нужен алгоритм, а не программа! p.s.: алгоритм на цикл "до".

👇
Ответ:
Slavaevdok2017
Slavaevdok2017
14.02.2023
Var s,i,n:integer;
begin
readln(n);
for i:=1 to n do
s+=i;
writeln(s);
end.
4,6(82 оценок)
Ответ:
Olenkako2004
Olenkako2004
14.02.2023
(199-99)*100=1000

N=4      
S=1+2+3+4
4,8(2 оценок)
Открыть все ответы
Ответ:
val40
val40
14.02.2023
Снег мягкий, пушистый ложится  ковром.
И хлопья  летят как с небес парашюты.
Иду  на концерт  через парк напролом,
Сегодня   на сцене  весь день лилипуты.

И что-то далёкое  с детства пришло,
Ворвалось  тайком,  будто кот в одеяло.
И  тут же волною приплыло  тепло,
И радостно  сердцу как будто бы стало.

Секундой  десятки   годов  протекли,
И так же лилипут  выступленье.
Но  средь   временного пространства дали
Случайно   ворвались два  быстрых   виденья.

Был главным актёром  тогда Коля  Манг.
Мне имя его не даёт всё покоя.
И начал искать   средь названий  тот ранг,
Что  выйдет на тайну  эстрады  героя.

Искать не пришлось  мне столетьями их,
Друзья  меня взяли с собою  в походы.
И хоть   ветер  памяти  несколько стих,
Скажу,  что узнал, несмотря   на все годы…

Пейзаж колоссальный,     красавец- Мангуп!
Дорога змеится,      внизу- винограды.
Но-   дрожь пробирает,  стучит зуб о зуб,
И даже, похоже,  туристы не рады…

Какой-то   неясный, таинственный   шум,
Он  то- наяву,  то  в тумане   душевном.
Пытаюсь  уйти  от  тревожащих дум,
Всё вижу вокруг в ореоле волшебном.

Кружится,  как в сказке, серебряный свет,
Мираж   впереди,   или   жизни картина?
Все краски   опишет едва ли поэт,
И месяц,   как долька висит    апельсина…

И вспомнил, что видел товарищ тогда,
На  странной вершине   гористого плато.
Вина мы не брали,   лишь только еда,
А, впрочем,  оно ведь  у всех   виновато…

Сказал   он   наутро,   что видел концерт,
Куда направляли   мы с ним свои ноги.
Увидел он  будущий свой там мольберт,
И как я пишу   про Мангуп    эти строки…

Но именно там    как    в  «окошко»  глядел,
Сквозь  времени линзу,    астрал-телескопа…
А я  сомневаться   рассказу   посмел,
Как   рыба в легенду  морского потопа.

Мангуп   по   местам   всё  расставил  теперь,
Видение  гор   лишь    под  утро     умчалось… 
Коль  в  «завтра»   одна хоть имеется дверь,
То ключ от замка  нам  найти  уж  осталось…
4,5(100 оценок)
Ответ:
Vanea228
Vanea228
14.02.2023
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var n:=ReadInteger('n=');
  if n<0 then Writeln(n,'! не определено: n<0')
  else
    if n=0 then Writeln('0!=1')
    else begin
      var p:BigInteger:=1;
      for var i:=2 to n do p*=i;
      Writeln(n,'!=',p)
      end
end.

Тестовое решение:
n= 138
138!=691778647261948849222819828311491035886734385827028118707676848307166514238979223884785249055995983385450621636277440066920043595627074569065446040152660143904127838730788278294186615891819670506731208704000000000000000000000000000000000
4,4(79 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ