Соберите на языке Паскаль программу соответствующую блок-схеме. var a, b, a1, b1: integer; begin readln (a, b); a1:=a; b1:=b; while a<>b do if a>b then a:=a-b else b:=b-a; if a<>0 then writeln ('НОД(', a1, ', ', b1,')=', a) end. else writeln ('НОД(', a1, ', ', b1,')=', b)
Логотип SimpleЦДЗ

Похожие

Задание

Соберите на языке Паскаль программу соответствующую блок-схеме.

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

Тот же тест