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

Найти сумму всех четных натуральных чисел от 2-х до n

Ответ:

Masha9771

05.10.2020 13:47

Program n1;
var sum,i,n: integer;
begin
readln(n);
sum:=0;
for i:=2 to n do if i mod 2=0 then sum:=sum+i;
writeln(sum);
end.

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

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

Jenny987

19.01.2023 03:12

Удимы было 110000 рублей , третья часть этих денег была потрачена им на булочку и сок. 1110 рублей было потрачено на проезд до школы и обратно, сколько у него осталось денег?...

Shkolnik228007

19.01.2023 03:12

Скорость передачи данных по некоторому каналу связи равна 256000 бит/с, передача данных через это соединение заняла 4 минут. определите информационный объем файла в килобайтах...

kirill885

19.01.2023 03:12

Что лишнее? носок, мозоль, георгин, помидор? рабочая тетрадь босова стр.48,№52...

mishaniy

31.08.2022 01:16

Выбрать 3 ситуации и определить в каком они программном обеспечении...

Asbvd

31.08.2022 01:16

Винни-пух, придя в гости к кролику, увидел 8 горшочков, пронумерованных от 1 до 8. как сказал кролик, только в одном из них мед, остальные пустые. какое минимальное количество...

oiopiha

03.07.2021 21:27

Информационные модели это-...

goodblood197

06.06.2020 14:00

Двоичная система счисления имеет основание ?...

АружанТопская

11.03.2020 19:27

с задание а то у меня сор ....

TheTanyaStar2k

27.07.2020 07:44

Какое получится слово после нажатия клавиш, если курсор находится после буквы «Ы»? (Стрелки обозначают перемещение курсора)( )← «Del» «A» → → «К» ← «BackSpace» «А»МЫ|ШЬА....

ssssss22

14.03.2021 14:28

Определите длину кратчайшего пути между пунктами A и E (при условии, что передвигаться можно только по построенным дорогам)....

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

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