Какую решает фрагмент программы на языке паскаль (a и b-переменные целого типа) readln (a,b); while a< > b do if a> b then a: =a-b else b: =b-a; writeln(a); 1)определяет минимум из двух чисел a и b 2)меняет значение a и b местами 3)определяет наименьшее общее кратное чисел a и b 4)определяет наибольшее общее кратное чисел a и b 5)определяет,на сколько больше значение среди чиселa а и b отличается от меньшего из них

Ответ: определяет наибольший общий делитель пример 1: a=2 и b=3 первая итерация цикла:   b=1 вторая итерация цикла:   a=1 вывод: 1 пример 2: a=15 и b=5 первая итерация цикла:   a=10 вторая итерация цикла:   a=5 вывод: 5 пример 3 a=25 и b=15 первая итерация цикла: a=10 вторая итерация цикла: b=5 третья итерация цикла: a=5 вывод: 5

5-й вариант. обратите внимание на условие: если a больше b, то вычислить a - b. в противном случае, т.е., если b больше или равно a, вычисляется b-a. однако, в неточность. строка else b: =b-a должна выглядеть вот так: else a: =b-a. иначе, в случае, если второе число больше или равно первому, то выводится первое, а результат вычислений нигде не используется и не показывается. в доказательство моих слов давайте рассмотрим два варианта 1) a=5; b=1 условие выполняется, происходит вычисление 5-1, результат которого помещается в переменную a, которая потом выводится на экран. т.е. на экране будет напечатано 4. 2) a=2; b=3 условие не выполняется, переход к блоку else, где происходит вычисление 3-2, результат которого помещается в переменную b. однако, на экран выводится переменная a, которая содержит двоечку. таким образом, либо при постановке допущена ошибка, либо в перечне допустимых вариантов отсутствует правильный ответ.

за 16 секунд было передано 256000*16 бит информации = 256000*2 байт (т.к. в байте 8 бит) = 500 кбайт (т.к. в 1 кбайт = 1024 байт)

ответ: 500