Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. сократить дробь, т. е. найти такие натуральные числа p и q, не имеющие общих делителей, что p/q=a/b. (написать функцию для расчёта наибольшего общего делителя двух натуральных чисел, используя алгоритм евклида). функции пользователя. паскаль.

284

300

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

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

kolazykov11

Информатика

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

Program n1; var n,m,d: integer; function nod(n,m: integer): integer; begin while n< > m do if m> n then m: =m-n else n: =n-m; nod: =m; end; begin write('введите числитель: '); readln(n); write('введите знаменатель: '); readln(m); writeln('введена дробь: ',n,'/',m); d: =nod(n,m); n: =n div d; m: =m div d; writeln('сокращенная дробь: ',n,'/',m); end.

nikitos3567

Информатика

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

Program vasha_zadacha_1; var b,c: integer; a: array [1..20] of integer; begin randomize; b: =0; for c: =1 to 10 do begin a[c]: =random(0,99); writeln('элемент массива ==> ', a[c]); if (a[c] mod 2 = 0) then b: =b+a[c]; end; writeln('сумма чётных элементов массива', b); end.program vasha_zadacha_2; var b,c: word ; a: array [1..20] of integer; begin randomize; b: =1; for c: =1 to 10 do begin a[c]: =random(0,99); writeln('элемент массива ==> ', a[c]); b: =b*a[c]; end; writeln('произведение всех элементов массива ', b); end.program vasha_zadacha_3; var b,c: word ; a: array [1..20] of integer; begin randomize; b: =0; for c: =1 to 10 do begin a[c]: =random(0,99); writeln('элемент массива ==> ', a[c]); if (a[c] > = 50) and (a[c]< =60) then b: =b+a[c]; end; writeln('сумма элементов в диапазоне от 50 до 60 ', b); end.