Терентьева
?>

Вывести на экран первые М нечётных чисел в обратном порядке

Информатика

Ответы

Тоноян

===== PascalABc.NET =====

begin

 Range(2 * ReadInteger('M=') - 1, 1, -2).Print

end.


Вывести на экран первые М нечётных чисел в обратном порядке
Yelena1458
Текст программы (Pascal)
var
  a,b,c,d,e:byte;
  k:integer;
begin
  k:=0;
  for a:=1 to 9 do begin
    for b:=0 to 9 do
      if b<>a then begin
        for c:=0 to 9 do
          if (c<>a) and (c<>b) then begin
            for d:=0 to 9 do
              if (d<>a) and (d<>b) and (d<>c) then begin
                e:=0;
                repeat
                  if a*c-c*e=a-b+c+d+e then Inc(k);
                  e:=e+2
                until e<9
              end
          end
      end
  end;
  Writeln(k)
end.

Тестовое решение:
190
zaravshan20134
Текст программы (Pascal)
var
  a,b,c,d,e:byte;
  k:integer;
begin
  k:=0;
  for a:=1 to 9 do begin
    for b:=0 to 9 do
      if b<>a then begin
        for c:=0 to 9 do
          if (c<>a) and (c<>b) then begin
            for d:=0 to 9 do
              if (d<>a) and (d<>b) and (d<>c) then begin
                e:=0;
                repeat
                  if a*c-c*e=a-b+c+d+e then Inc(k);
                  e:=e+2
                until e<9
              end
          end
      end
  end;
  Writeln(k)
end.

Тестовое решение:
190

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вывести на экран первые М нечётных чисел в обратном порядке
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

rubanvladimir374
VSArsentev
Татьяна_Вологжин
marinavg63607
Yevgeniya1807
Vrpeshka
polyakovaelena
mmihail146
Yurevna
Nekrasova
ksv89
AkulovaAnastasiya
MislitskiiSergei1403
skyey
dddddd68