прцедура Опции

[zoha]

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

Вот описание

Составить программу для нахождения наименьшего общего кратного 3 натуральных чисел

Вот фрагмент программы, го она не работает! Даже есть скриншот!!
ПОМОГИГЕ, PLEASE

program LAb_14;
uses crt;
var a,b,c:0..9;
z:integer;
procedure vvod(a,b,c:byte);
Var i:byte;
begin
read(a,b,c);end;
procedure nok(a,b,c:byte;var z:integer);
var i,x:byte;
begin
if ((a div a)<>0)and((b div a)<>0)and((c div a)<>0) then x:=x+1;
x:=z;
end;
begin
clrscr;
writeln('Введите 3 натуральных числа');
vvod(a,b,c);
writeln('Наименьшее общее кратное 3 чисел=');
nok(a,b,c,z);
readln;
end.

[compiler]

как ты думаешь, что будет происходить в этой строчке

if ((a div a)<>0)and((b div a)<>0)and((c div a)<>0) then x:=x+1;

при а=0?

и вообще я не понял алгоритма... ИМХО, проще всего будет решить считая НОК(a, b, c) = НОК(НОК(a, b), c)

Сообщение отредактировано: compiler - 4.01.2008 2:10

[zoha]

как ты думаешь, что будет происходить в этой строчке

if ((a div a)<>0)and((b div a)<>0)and((c div a)<>0) then x:=x+1;

при а=0?

и вообще я не понял алгоритма... ИМХО, проще всего будет решить считая НОК(a, b, c) = НОК(НОК(a, b), c)

А как это сделать ПОМОГИ пажалуйста фрагмент напиши