Урок 13.1 Задача 12

Primary tabs

Submitted by mrn123 on Tue, 08/30/2022 - 10:14

Forums:

Урок 13.1 Задача 12

Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:

6
3
А для 8:

4
2
1 

program  u131z12;
var m, j, i, c,d: integer;


begin
 j:=1;
 writeln (' vvedite cheloe chislo');
 readln(m);
   if (m mod 2)=1 then
   writeln ('ohibka') else
    while  ((c mod 2)<>1) do
    begin

      c:= m div 2;
      writeln(c);
      m:=c;

    end;

 readln();

end.
  • Log in to post comments
  • 859 reads
vedro-compota's picture

vedro-compota

Sun, 09/11/2022 - 15:25 

c:= m div 2;
      writeln(c);
      m:=c;

-- зачем тут и с b m можно ли обойтись одной переменной?

_____________
матфак вгу и остальная классика =)

mrn123

Tue, 09/13/2022 - 19:03

исправленная версия

mrn123

Tue, 09/13/2022 - 19:04 

program  u131z12_3;
var m : integer;


begin

 writeln (' vvedite cheloe chislo');
 readln(m);
 if (m mod 2)=1 then
   writeln ('ohibka') else
     while  ((m mod 2)<>1) do
     begin

       m:= m div 2;
       writeln(m);

     end;

 readln();

end.