Найти наибольший общий делитель чисел a, b, c, создав функцию для нахождения нод двух натуральных чисел.

300

500

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

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

DianaDi1111111

Информатика

4,8(39 оценок)

Var a,b,c,d : integer; function nod(a,b: integer): integer; begin while a< > b do if a> b then a: =a-b else b: =b-a; result: =a; end; begin writeln('введите а, b, c'); readln(a,b,c); d: =nod(a,b); d: =nod(d,c); writeln('нод = ',d); end.

приветпрррррр20246р

Информатика

4,6(75 оценок)

Program nod(output); function nod (a1, a2: integer): integer; begin nod: =abs (a1 mod a2); writeln(#7); nod (a1, a2); end; var a, b, c, d: integer; begin readln (a, b, c); d: =nod(nod(a, b), c); writeln(d); readln; end.