< >

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

Ответы

Ответ дал: postskript
0

program z1;

var i:integer;

begin

for i:=49 downto 1 do

 if i mod 2 = 1 then write(i:3);

end.

Похожие вопросы
Русский язык
2 года назад
синтаксический разбор предложения : "В бурные осенние ночи ужас разливался от старого замка,,,"
Другие предметы
2 года назад
 Множество закономерно связанных друг с другом элементов, представляющее собой целостное образование   а) рекреация б) метаболизм в) система г) гомеостаз
Математика
7 лет назад
помогите пожалуйста упр.5 и 6 срочно, заранее спасибо
Математика
7 лет назад
я пишу по казахски 1)65 667 саны 3127 санынан еселиги 2)13 188 саны 24 санынан еселиги 3)762 саны 16 664 санынан болгиши 4)25 400 саны 154 санынан еселиги
Геометрия
10 лет назад
Даны 3 вершины пар-ма ABCD B(-1;1)C(2;3) D(1;-1). Найти координаты вершины A.
Алгебра
10 лет назад
1.cos^2x-sin^2x=-0.5 2.sin(П-x)-cos(П/2+x)=корень из 3 3.cos(П+x)=sinП/2 4.3cosx-sin2x=0 5.2sinx*cosx=0.5 6.cos^2x=1+sin^2x 7.9sin4x=0
Геометрия
10 лет назад
В треугольнике CDE CM-биссектриса, угол DCE=60 градусов, ME=3 корней из 2. Найдите СМ, если угол CED=45 градусов
Алгебра
10 лет назад
Решите уравнение: 9х-6(х-1)=5(х+2)