Как можно исправить Pascal. 8 строчка

Question

var
a, b, c, k : integer;
Procedure nod(a, b : integer; var n : integer);
var
r : integer;
begin
repeat
r := a mod b;
a := b; b := r
until b = 0;
n := a
end;
begin
nod(a, b, k);
a := k; b := c;
nod(a, b, k);
if k = 1 then writeln('Числа взаимно простые')
else writeln('Числа не взаимно простые')
end.

Answer 1

Певый раз вижу паскаль, но кажется что нету ";" на 9 строчке, или попробуй удалить переносы строк

Answer 2

Кто будет числа вводить? ideone

Минимальная коррекция:

a := 6;
b := 8;
nod(a, b, k);
if k = 1 then writeln('Числа взаимно простые')
else writeln('Числа не взаимно простые')

Если нужно числа менять - сделайте readln

Кроме того, nod по семантике функция, вот и сделайте её функцией

var
  a, b, k : integer;
function nod(a, b : integer): integer;
var
  r : integer;
begin
  repeat
    r := a mod b;
    a := b; 
    b := r;
  until b = 0;
  nod := a; //result
end;

begin
  Writeln('Введите два целых числа');
  Readln(a);
  Readln(b);
  k := nod(a, b);
  if k = 1 then 
     writeln('Числа взаимно простые')
  else 
    writeln('Числа не взаимно простые')
end.

БЛОГ НА HUSL

Как можно исправить Pascal. 8 строчка

Ответы (2 шт):