Ответы на вопрос:
Var s, k: integer; begin s: =0; for k: =1 to 100 do if k mod 2=0 then s: =s+k; write('сумма четных чисел данного ряда равна ', s); end.
Популярно: Информатика
-
Массив содержит четное количество элементов. напишите программу, которая сортирует...
liskotovich15.10.2022 06:48 -
Перейдите на Лист 1 и выполните задание в рамке. Обычно доставка в Интернет-магазине...
katya091327.07.2020 01:37 -
HELP ME PLEASE MY FRIENDS Надо сделать 2 и 3 задачу с дано и решение...
turarernur27.08.2020 07:01 -
Администратор ПК, работа с программным обеспечением только...
максимка190505.09.2021 11:37 -
Составить по одному примеру формулы соли для каждой кислоты дать названия веществам...
194111009.02.2023 22:52 -
Нужно нарисовать 3 дома в чертежнике(кумир) с алгоритма...
мират320.04.2021 09:33 -
Склади вирази до задач. а) Ширина прямокутника а дм, що складає 40% його довжини....
siylvio10.11.2020 09:22 -
Опмсати природний комплекс своєї місцевості...
manetsevap010xz03.05.2021 13:21 -
Подготовить 5 интересных фактов развития животных (как развивается зародыш,...
danilabelinovp08mj914.04.2020 00:05 -
Какое место занимает Лютфи среди узбекских поэтов?...
ismail0014.05.2021 11:33