Регистрация
Ggggggghhhj
17.04.2023 17:31
Информатика
Есть ответ 👍

Необходимо определить наибольший общий делитель двух введённых чисел. используя процедуру(два параметра-значения. один параметр-переменная.)

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

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

НикаN5
НикаN5
4,6(92 оценок)
Т.к. язык не указан, написал на паскале.  на сколько я понял, это должно выглядеть как-то так:  
McMamon
McMamon
4,7(15 оценок)
Var a,b: longint; function sum (n: integer): integer;   var s: integer;   begin       s: =0;       while (n< > 0) do         begin           s: =s+n mod 10;           n: =n div 10;         end;       sum: =s;     end;   begin     write ('a = ');     readln (a);     write ('b = ');     readln (b);     if sum(a) > sum(b) then         writeln ('сумма цифр 1ого числа больше на ',sum(a)-sum(b))     else if sum(b) > sum (a) then          writeln ('cумма цифр 2ого числа больше на ',sum(b)-sum(a))     else writeln ('сумма цифр 1ого числа равна сумме цифр 2ого числа');     readln;   end.

Популярно: Информатика