Помогите пожалуйста написать программу в Паскале:
Получить в убывающем порядке все двузначные числа, в десятичной записи которых нет цифры 5.
Ответы
Ответ дал:
0
program dig_2_no5_downto;
var
i,a,b: integer;
begin
i := 99;
while i >= 10 do
begin
a := i div 10;
b := i mod 10;
if (a <> 5) and (b <> 5) then
write(i, ' ');
i := i - 1;
end;
end.
var
i,a,b: integer;
begin
i := 99;
while i >= 10 do
begin
a := i div 10;
b := i mod 10;
if (a <> 5) and (b <> 5) then
write(i, ' ');
i := i - 1;
end;
end.
Приложения:
Ответ дал:
0
var
i: integer;
begin
for i := 99 downto 10 do
if (i mod 10 <> 5) and (i div 10 <> 5) then
write(i, ' ');
end.
i: integer;
begin
for i := 99 downto 10 do
if (i mod 10 <> 5) and (i div 10 <> 5) then
write(i, ' ');
end.
Приложения:
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад