Procedure !! Паскаль!!

[wrmarw]

помогите это написать с процедурой!!!

program f;
var a, b, c, d, rez: integer;
function NOK (k, t:integer):integer;
var z: integer;
begin
if k>t then z:=k
else z:=t;
while not ((z mod k=0) and (z mod t=0)) do
z:=z+1;
NOK:=z;
end;
begin
writeln ('zadayte 4 chisla');
readln (a, b, c, d);
rez:=nok (nok(nok(a, b), C), d);
writeln ('rezultat=', rez);
end.

[Chudo4258]

program f;
var a, b, c, d, rez: integer;
procedure NOK (k, t:integer; var z:integer);
begin
if k>t then z:=k
else z:=t;
while not ((z mod k=0) and (z mod t=0)) do
z:=z+1;
end;
begin
writeln ('zadayte 4 chisla');
readln (a, b, c, d);
nok(a, b, rez);
nok(rez, c, rez);
nok(rez, d, rez);
writeln ('rezultat=', rez);
end.

20.04.jpg

[wrmarw]

о! спасибо! сейчас испробую!

[wrmarw]

хм, а почему в процедуре описываются три переменные? это же программа нахождения нок 4 чисел!

[Hacker19_90]

Сообщение от wrmarw

хм, а почему в процедуре описываются три переменные? это же программа нахождения нок 4 чисел!

http://programmersforum.ru/showthread.php?t=93324
ты аналогии не находишь

[Hacker19_90]

Читайте темы которые насоздавали

[ROMA2PVT]

хм, а почему в процедуре описываются три переменные? это же программа нахождения нок 4 чисел!

Нда уж.Бывает.

[wrmarw]

да, кстати, работает!!!! спасибо огромнейшее, Chudo4258!!!!!!!!