Решение задачи №13 из главы 13.1

Primary tabs

gani84's picture
Submitted by gani84 on Sat, 09/26/2020 - 11:42

Forums:

Решение задачи №13 из главы 13.1

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

M := 3;
N := 15;

Получим:

9
27
var m,n: integer;
begin
  writeln('vvedite cislo M');
  readln(m);
  writeln('vvedite cislo N');
  readln(n);
  if ((m mod 2) = 0) then
    while ((m mod 2)<1) do
      begin
        m := m div 2;
        writeln(m);
       end
  else
    if (m mod 2) = 1 then

      while (m < n) do
      begin
      m := m*m*m;
      writeln('M = ',m);
       n := n*n*n;
      writeln('N = ',n);
      end;

readln();
end.

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 3715 reads
vedro-compota's picture

vedro-compota

Sat, 09/26/2020 - 20:08 

m := m*m*m;

-- это не умножение на 3.

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

gani84's picture

gani84

Tue, 09/29/2020 - 14:31

Консоль результат
vvedite cislo M
3
vvedite cislo N
15
M = 9
M = 27 

var m,n: integer;
begin
  writeln('vvedite cislo M');
  readln(m);
  writeln('vvedite cislo N');
  readln(n);
  if ((m mod 2) = 0) then
    while ((m mod 2)<1) do
      begin
        m := m div 2;
        writeln(m);
       end
  else  begin
    while (m < n) do
      begin
      m := m*3;
      writeln('M = ',m);
      end;
  end;
readln();
end.
vedro-compota's picture

vedro-compota

Thu, 10/01/2020 - 19:35

решение засчитано

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