Составьте программу,которая выводит на экран нечетные числа от 1 до 50 в порядке убывания.
Ответы на вопрос
Ответил simbion0
0
//PascalABC.NET
var
i:integer;
begin
for i:=50 downto 1 do
if i mod 2 =1 then writeln(i);
end.
var
i:integer;
begin
for i:=50 downto 1 do
if i mod 2 =1 then writeln(i);
end.
Ответил nastyasazonova1
0
а если мы не проходили downto? то как
Ответил simbion0
0
var
i:integer;
begin
i:=50;
while i > 0 do begin
if i mod 2 = 1 then write(i,' ');
i:=i-1;
end;
end.
i:integer;
begin
i:=50;
while i > 0 do begin
if i mod 2 = 1 then write(i,' ');
i:=i-1;
end;
end.
Ответил nastyasazonova1
0
спасибо)
Новые вопросы