КОМПЬЮТЕР ВЫДАЕТ ОШИБКУ:ВСТРЕЧЕН КОНЕЦ ФАЙЛА, А ОЖИДАЛСЯ ОПЕРАТОР. ПОМОГИТЕ ИСПРАВИТЬ. САМО

КОМПЬЮТЕР ВЫДАЕТ ОШИБКУ:ВСТРЕЧЕН КОНЕЦ ФАЙЛА, А ОЖИДАЛСЯ ОПЕРАТОР. ПОМОГИТЕ Поправить. САМО ЗАДАНИЕ Говорило ТАК:(С клавиатуры вводятся два целых положительных числа. Отыскать их наибольший общий делитель.)
_________________________________________________________
Function NODfinder (m,n:integer):integer;
var
n1,m1:integer;
begin
if m lt; n then begin
n1 := m;
m1 := n;
end

else
begin
n1 := n;
m1 := m;
end;
var
m,n,p,n1,m1,result:integer;
begin
writeln ('Введите два числа');
readln(m,n);
while n1 gt; 0 do



begin
p := m1 mod n1;
m1 := n1;
n1 := p;
Result := m1;
writeln(result);
end;
end.

Мицкун Аделина 2019-08-11 07:31:47

Вы пренебрегали end; в конце функции (перед var m,n,p...)

Люда Игнатченкова 2019-08-11 07:33:26

Программа при этом запускается, но не работает корректно

Вячеслав Малозетов 2019-08-11 07:37:03

а как ее изменить, чтобы она при этом работала?

Виолетта Машенистова 2019-08-11 07:30:59

Function NODfinder (m,n:integer):integer; var n1,m1:integer; begin if m < n then begin n1 := m; m1 := n; end else begin n1 := n; m1 := m; end; var m,n,p,n1,m1,result:integer; begin writeln ('Введите два числа'); readln(m,n); while n1 > 0 do begin p := m1 mod n1; m1 := n1; n1 := p; Result := m1; writeln(result); end; end.1

Mihail 2019-08-11 07:36:14

131

Амбарцунян Павел 2019-08-11 07:45:38

fial inuar

Павел Педора 2019-08-11 07:52:16

всё

Виктор 2019-08-11 07:55:50

1-ая ошибка у тебыя нет енда в теле функции. то сесть функция не знает где у нее конец

Николай Ганиев 2019-08-11 08:02:43

и во вторй доли программки гшде идет цикл нету вызова самой функци, то есть программка и функция не связаны. программа не понимает для чего нужна функция