Информатика(Pascal). Составить программку нахождения меньшего общего кратного(НОК) 2-ух

Uses crt;
var n,m,p : real;
nod,nok : real;
begin
clrscr;
write('n=');readln(a);
write('j=');readln(b);
p:=n*m;
while nlt;gt;m do
if ngt;m then n:=n-m
else m:=m-a;
nod:=n;
nok:=p/nod;
writeln('НОД:',n);
write('НОК:',nok);
readln;
end.

Арина Тюрганова 2019-04-16 21:21:28

Заместо а -n поставь. Всесто b -m поставь. Я привыкла работать с а и б

Андрей Нашекин 2019-04-16 21:28:21

а сообразил,спс

Людмила Фиськова 2019-04-16 21:29:49

а модуль clrscr обязателен?

Арсений Прудывус 2019-04-16 21:37:54

а всё,убрал его , всё норм сейчас, не подскажешь зачем его употребляют вообщем?

Игорян Ланшаков 2019-04-16 21:42:46

Не за что

Тимур Ютяев 2019-04-16 21:47:08

Не очень. Он дозволяет выводить цветные знаки цветными

Оксана Пучерова 2019-04-16 21:54:20

понял, удивительно что мы этого вроде ещё не проходили,желая может я пренебрегал, ты же в 9?

Агата Жаворонская 2019-04-16 22:03:15

Сказано ведь в задании "по формуле...", и приведена формула. А тут совершенно не так.

Степан Лемлер 2019-04-16 22:09:28

ФВС помоги с новейшей задачкой пж

Маргарита Годжелло 2019-04-16 22:14:05

там в информатике недалеко

О проекте

Информатика(Pascal). Составить программку нахождения меньшего общего кратного(НОК) 2-ух

Добро пожаловать!