Нахождение наибольшего общего делителя четырех натуральных чисел - Pascal ABC

Формулировка задачи:

((( С использованием файлов ))) (1)Составить программу для нахождения наибольшего общего делителя четырех натуральных чисел. ((( С использованием модуля (unit) ))) (2)Написать программу, которая вычисляет частное от деления двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные (делитель равен нулю), выдавать сообщение об ошибке.Добавлено через 1 минутуэт к (1 задаче)Есть сама задача, но я не знаю как сделать: с использованием файла!!!!!!!!!
uses crt;
var a,b,c,d:word;
function NOD(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
NOD:=m;
end;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('d=');readln(d);
writeln;
writeln('NOD(a,b,c,d)=',NOD(NOD(a,b),NOD(c,d)));
readln
end.

Код к задаче: «Нахождение наибольшего общего делителя четырех натуральных чисел - Pascal ABC»

textual
uses crt;
var a,b,c,d:word;
f: text;
function NOD(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
NOD:=m;
end;
begin
assign(f, 'f.txt');
reset (f);
read(f,a);
read(f,b);
read(f,c);
read(f,d);
 
begin
clrscr;
 
writeln('NOD(a,b,c,d)=',NOD(NOD(a,b),NOD(c,d)));
readln
end;
end.

10   голосов, оценка 3.700 из 5


СОХРАНИТЬ ССЫЛКУ