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

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

Ответ:

ForaN777

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 оценок)

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

xxx158

07.04.2022 07:53

Яким буде результат виконання даної програми, якщо натиснуто клавішу стрілка вниз на клавіатурі?Об єкт переміститься на 30 кроківОб єкт переміститься на 14 кроківОб єкт переміститься...

kunakovdp06u5r

01.09.2020 12:10

Нужно сделать все это в pascal. , кто может пусть дан массив, содержащий даты. каждая дата — это число, месяц, год (см. описание типа data в предыдущем ). найти: a) год с наименьшим...

ulllyyy2010

05.02.2021 13:00

На конец учебного года в классе было 101112 учеников. 1 сентября в класс пришли 1112 новых учеников. сколько всего стало учеников по списку?...

Апельсинка102

21.01.2020 21:32

Что плохого в компьютере, кроме того что понижается зрение, осанка, развивается компьютерная зависимость. !...

sasha7666

21.01.2020 21:32

Каждый символ кодируется 1 байтом. вычислите информационный объем следующего отрывка стихотворения а. с. пушкина: и там я был, и мёд я пил; у моря видел дуб зелёный; под ним сидел,...

klemiatoeva

05.05.2022 22:03

Спрограммной на паскале, ) используя следующий фрагмент программы, опишите перечисленные ниже функции: type name = (аня, валя, женя, петя, саша, таня, шура, юра); information...

Yanas7

18.02.2023 06:36

Вданном предложении некоторые подряд идущие буквы нескольких слов образуют термины, связанные с информатикой. например: этот комод ему достался в наследство от бабушки. (модем)...

drmkhva

18.02.2023 06:36

На каких картах хранилась программа в аналитической машине...

Rian1338

27.06.2020 14:36

Подскажите пословицу что бы получился алгоритм с повтором...

JloJlKeK

09.09.2020 23:07

Какая команда служит для ввода значений переменных в pascal? пример....

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

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