Составьте блок схему:program qq;
var a, b, c: integer;
begin
writeln ('Введите два числа ');
readln(a,b);
while a<>b do begin
if a>b then a:=a-b else
b:=b-a;
end;
writeln ('НОД равен ',a);
end. P.S(НОД-это наибольший общий делитель)
Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад