Я использовала алгоритм Архимеда (так, кажется, он называется).
program nod (input, output);
var m, n, i, p, q, x, o: integer;
begin
read(p);
for i:=1 to 9 do
begin
read(q);
if p>q then begin m:=p; n:=q end
else begin m:=q; n:=p end;
while (n<>0) and (m<>0) do begin
o:=m-n; if o>=n then m:=o else
begin m:=n; n:=o end
end;
if m<>0 then x:=m else x:=n;
p:=x
end;
writeln(x)
end.
Думаю, что все написанное выше может оказаться вообще полной ерундой...
Пишу программу второй раз в жизни... Помогите,пожалуйста! И еще у меня чисто теоретический вопрос: можно в цикле for прсваивать переменной новое значение и потом пользоваться уже им (я пытаюсь так сделать со значением "p").
Сообщение отредактировано: volvo -