ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Pascal ;D

Цитата:

Сообщение от winlogon.exe

Вот еще:

3) "В помощь юнитам". Утром одного дня на опытной станции взошли два цветка, посеянные накануне. Жизненный цикл одного из них состовляет n дней, а другого - m дней (n,m - натуральные числа, не превосходящие 255). В последний день жизни растение цветет, роняет зерно и умерает. На утро следующего дня из зерна начинает расти такой же цветок. Напишите программу, которая по введенным n и m (в таком порядке), вычисляет, на какой день он начала процесса можно наблюдать цветение обоих растений.

Чето не так щас поправлю....

Код:

program dayxxx;

var
stday,n,m:byte;
mx,nx,intI:longint;

begin
n:=2;
m:=7;

if n = m then begin
writeln('potrebuets9 ',n,' dney');
readln;
exit;
end;

if n> m then stday:=n else stday:=m;
for intI:=stday to 1000000 do begin
mx:=intI;
nx:=intI;
while mx>0 do mx:=mx-m;
mx:=mx+m;
while nx>0 do nx:=nx-n;
nx:=nx+n;
writeln('mx ',mx,' nx ',nx);
if mx = nx then break;
end;

writeln('potrebuets9 ',intI-1,' dney');
readln;
end.

Результат работы:

Код:

potrebuets9 14 dney