Вопрос по информатике:
КОМПЬЮТЕР ВЫДАЕТ ОШИБКУ:ВСТРЕЧЕН КОНЕЦ ФАЙЛА, А ОЖИДАЛСЯ ОПЕРАТОР. ПОМОГИТЕ ИСПРАВИТЬ. САМО ЗАДАНИЕ ГЛАСИЛО ТАК:(С клавиатуры вводятся два целых положительных числа. Найти их наибольший общий делитель.)
_________________________________________________________
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.
- 27.02.2017 12:51
- Информатика
- remove_red_eye 19827
- thumb_up 17
Ответы и объяснения 1
Var m,b,ost,c,result:integer;
////M
ost:=1;
writeln ('Введите два числа');
readln(b,m);
while ost0 do
begin
if m>b then
begin
c:=m;
m:=b;
b:=c;
end;
ost:= b mod m;
result:=m;
b:=ost;
end;
writeln('НОД: ',m);
end.
- 28.02.2017 09:19
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.