Нахождение наибольшего общего делителя четырех натуральных чисел - 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.


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник