Ввести с клавиатуры 2 натуральных числа – n и m. проверить, являются ли они взаимно простыми (то есть, не имеют общих делителей кроме единицы). в качестве ответа вывести слово yes или no.

281

429

Посмотреть ответы 2

Ответы на вопрос:

casualsicp

Информатика

4,5(62 оценок)

Procedure nod(a,b: integer; var nd: integer); beginwhile a< > b doif a> b then a: =a-belse b: =b-a; nd: =a; end; var a,b,nd: integer; beginreadln (a); readln (b); nod(a,b,nd); writeln(nd); if nd=1 then write('взаимные')else write ('не взаимные'); end.

Filindenis

Информатика

4,4(59 оценок)

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin var n,m: integer; read(n,m); var a: =readmatrinteger(n,m); var t: =a.elementswithindexes.minby(x-> x[2]); println(t[0]+1,t[1]+1,t[2]); t: =a.elementswithindexes.maxby(x-> x[2]); println(t[0]+1,t[1]+1,t[2]); end. пример 4 5 1 3 2 54 24 75 12 3 46 9 13 26 56 9 12 14 90 97 6 34 1 1 1 4 3 97