Question

что тут не так? ПОМОГИТЕ СРОЧНО!!!! program Nod;
var a,b:integer;
begin
Write ('введите два натуральных числа');
Readln(4,2);
While 4<>2 do
If 4>2 then a:=4-2
else b:=2-4
Writeln('НОД=',4);
Readln
end.

Answer 1

Объяснение:

Если нужно найти наибольший общий делитель, то так:

program Nod;

var a,b:integer;

begin

Write ('введите два натуральных числа');

Readln(a,b);

While a<>b do

begin

If a>b then a:=a-b;

else b:=b-a;

end;

Writeln('НОД=',a);

end.