zhannasokortova
?>

Напишите программу вычисления наибольшего общего делителя двух целых чисел. а)с оператором repeat б) с оператором while

Информатика

Ответы

Galiaahmatova4447

по алгоритму евклида:

var a,b: integer;

begin

  readln(a,b);

  repeat

    if a> b then

      a: =a mod b

    else

      b: =b mod a;

  until (a=0) or (b=0);

  writeln(a+b);

end.

-------------------------

var a,b: integer;

begin

  readln(a,b);

  while (a< > 0) and (b< > 0) do

    if a> b then

        a: =a mod b

      else

        b: =b mod a;

  writeln(a+b);

end.

zagadka27

#include < iostream>

#include < cstdlib>

#include < ctime>

#include < queue>

template < typename t>

void remove(std: : queue< t> *q)

{

int *a = new int[q-> size()];

int t = 0;

for (int i = 0; i < q-> size(); i++)

{

  if (q-> front() < = 0)

  {

  a[t] = q-> front();

  t++;

  }

  q-> pop();

}

for (int i = 0; i < t; i++)

  q-> push(a[i]);

}

int main()

{

srand(time(null));

std: : queue< int> q;

int l;

std: : cin > > l;

for (int i = 0; i < l; i++)

{

  //создание очереди

  q.push(rand()%21-10);

  std: : cout < < q.back() < < ' ';

}

remove(& q);

std: : cout < < std: : endl;

for (int i = 0; i < q.size(); i++)

{

  //вывод очереди на экран

  std: : cout < < q.front() < < ' ';

  q.pop();

}

return 0;

}

irina-mic
Оязыке. ну а так, для примера напишу программу на языке pascal. program lk; var a,b,c,d: real; begin readln(a,b); if a> b then c: =a else c: =b; d: =c+a; write(d); end. классическая программа, которая выбирает больше из двух чисел и прибавляет первое к большему. её вполне можно сократить до минимума, но в данной ситуации думаю лучше расписать. *итак, уточняй сразу - вот твой python : z = int(input('z = ')) c = int(input('c = ')) if z > c: print(1) elif z < c: print(2) else: print('числа оказались равны')  хорошего дня!

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

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

Напишите программу вычисления наибольшего общего делителя двух целых чисел. а)с оператором repeat б) с оператором while
Ваше имя (никнейм)*
Email*
Комментарий*

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

Артем Уберт
afilippov3321
alfaduk24908
drevile57
Svetlana1884
алексеевич810
fedoseevalyubov
deshkina82
Dmitrii sergei463
myatadinamo
smartschoolfili6
skvik71672
Инна_Nina1182
Конычева-музей&quot;260