Склавиатуры вводятся два целых положительных числа. найти их наибольший общий делитель. pascal abc функцией

222

434

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

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

oksana2000001

Информатика

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

Function nod(a,b: integer): integer; begin if a> b then result: =b else result: =a; result: =result+1; repeat result: =result-1 until (a mod result = 0)and(b mod result = 0) end; var a,b: integer; begin write('a = '); readln(a); write('b = '); readln(b); write(nod(a,b)) end.

Kally2007

Информатика

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

Var x , y , z : integer ; begin writeln(‘введите 3 числа ‘); readln ( x , y , z ); if x> y then begin if x> z then writeln (x) else writeln (z) end else begin if y> z then writeln (y) else writeln (z) end; readln; end.