Войти Регистрация Спроси ai-bota

Найти сумму всех натуральных чисел не превосходящих число m

Показать ответ

Ответ:

Vadim43k

05.10.2020 21:28

Program n1;
var sum,m,i: integer;
begin
readln(m);
for i:=1 to m do sum:=sum+i;
write(sum);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

ПеЧеНьКаСМоЛоЧкОм

07.01.2020 20:11

Какие ученые сыграли важную роль в развитии устройств вычтислительной техники? 2. Какие вычислительные машины относятся к аналоговым компьютерам? 3. Сколько поколений компьютеров...

kkkkk24

19.08.2020 12:53

I = 1000 while i 0: print(i) i = i - 7 print(я гуль) ЧЕ НЕ ТАК ТО...

maks312017

30.06.2021 08:49

Как найти площадь квадрата...

anna199015

04.07.2020 04:57

Декодтау дегеніміз не ?ответьте...

Настяданеона

07.12.2022 17:48

4. Компьютердегі файлдарды не себепті сақтап қаю керек...

azalia2003love

15.06.2020 23:34

Напишите рассказ используючи все правила этикета и расскажите какие виды компьютерной графики вы изучили в 6 классе ...

LizaOneLove8

20.02.2023 06:49

Расписать число 1257в десятичной...

MariyaMirnaya

19.02.2021 11:01

Напишіть невеликий твір на тему якби я була директором школи...

Евгеха001

19.02.2021 11:01

Укажите верные равенства: а)2: две девятых=четыре...

officialmailofp08mfm

19.02.2021 11:01

Чем отличаются школы 20 и 21 надо...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку