Комментарии: Решаем задачи Абрамян на Паскале. While23

Автор: Anton

Anton — Sat, 26 May 2018 12:48:49 +0000

В ответ на Александр. Сначало выполняется операция a+b, а потом выводится на консоль.

Александр — Sat, 26 May 2018 12:43:01 +0000

Что значит writeln (a+b) ??

Bronislav — Fri, 16 Feb 2018 08:31:10 +0000

var
  a,b:integer;
begin
  read(a,b);
  while a<>0 do
    if a>=b then a:=a mod b
    else (a,b):=(b,a);
  writeln('GCD = ',b);
end.

var

a,b:integer;

begin

read(a,b);

while a<>0 do

if a>=b then a:=a mod b

else (a,b):=(b,a);

writeln('GCD = ',b);

end.