От программы, записанной на алгоритмическом языке, перейдите к записи программы на языке Паскаль. var a, b, a1, b1: integer; begin readln (a, b); a1:=a; b1:=b; while (a<>0) and (b<>0) do if a>b then a:=a mod b else b:=b mod a; writeln ('НОД(', a1, ', ', b1,')=', a+b); end.
Логотип SimpleЦДЗ

Похожие

Задание

От программы, записанной на алгоритмическом языке, перейдите к записи программы на языке Паскаль.

  • var a, b, a1, b1: integer;
  • begin
  • readln \(a, b\);
  • a1:=a; b1:=b;
  • while \(a\\lt \\gt 0\) and \(b\\lt \\gt 0\) do
  • if a>b then a:=a mod b
  • else b:=b mod a;
  • writeln \('НОД\(', a1, ', ', b1,'\)=', a+b);
  • end.

Тот же тест