Задать вопрос Регистрация
Помочь другим

  • НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ.

    НАЙТИ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ 2 НАТУРАЛЬНЫХ ЧИСЕЛ!

Ответы 2

  • program prim; uses crt; var x,y:integer; begin writeln ('введите x,y'); readln (x,y); while x<>y do begin if x>y then x:=x-y else y:=y-x end; write ('НОД=',x); end.

    • Автор:

      shelby98
    • 6 лет назад
    • 0

  • var a,c,b:integer;beginreadln(a,b);while b>0 do begin a:=a mod b; c:=a;a:=b;b:=c; end;writeln(a);end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years