Вопрос задан 12.10.2026 в 10:08.
Предмет Информатика.
Спрашивает Михайлова Соня.
Составить блок-схему:
Найти сумму всех чётных чисел от 1 до 1000.
Программа на Паскале:
var s, i: integer;
begin
s := 0;
for i := 2 to 1000 do
if i mod 2 = 0 then s := s + i;
write('Сумма равна', s);
readln;
end.
Ответы на вопрос
Отвечает Самайданов Егор.
Блок-схему для этой программы можно записать так:
| Шаг | Действие в блок-схеме |
| 1 | Начало |
| 2 | Задать начальные значения: \( s:=0 \), \( i:=2 \) |
| 3 | Проверить условие: \( i \le 1000 \) |
| 4 | Если условие неверно, перейти к выводу суммы |
| 5 | Проверить: \( i \bmod 2=0 \) |
| 6 | Если число чётное, выполнить: \( s:=s+i \) |
| 7 | Увеличить \( i \) на \( 1 \) |
| 8 | Вернуться к проверке \( i \le 1000 \) |
| 9 | Вывести: Сумма равна \( s \) |
| 10 | Конец |
В программе цикл перебирает числа от \( 2 \) до \( 1000 \), проверяет каждое число на чётность и прибавляет его к сумме.
Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili
