Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Лимартия
26.11.2021, 07:26
Информатика

Составе программу, которая выводит на экран нечётные числа от 1 до 50 в порядке убывания.

Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Брилиана
var a, i : integer;
begin
a := 49; // Последнее нечётное число в промежутке от 1 до 50 включительно.
repeat // Воспользуемся циклом 'repeat', так как это самый быстрый вариант в данном случае.
writeln (a);
a := a - 2; // Если из нечётного числа вычесть 2, получим также нечётное число.
until a = 1;
end.