Школа программиста

Забыли пароль?
[задачи] [курсы] [олимпиады] [регистрация]
Логин:   Пароль:    
Скрыть меню
О школе
Правила
Олимпиады
Фотоальбом
Гостевая
Форум
Архив олимпиад
Архив задач
Состояние системы
Рейтинг
Курсы
Новичкам
Работа в системе
Курсы ККДП
Дистрибутивы
Статьи
Ссылки


 
Вернуться
Тема: Кто решил задачу на нахождение НОК напишите решение пожалуйста! Не могу разобраться в ней!
1
  1  Худододов Аким, 21 ноября 2010 г. 21:27:17
      Файлы не закрыты.
Где: close(input); close(output);?
  2  Платонов Матвей Андреевич, 20 ноября 2010 г. 6:20:42
      решал так но тест не проходит
var a, b, c, d: word;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read (a,b); c:=a; d:=b;
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a
end;
write (c*d/a)
end.
  3  кое-кто, 19 ноября 2010 г. 19:12:46
      NO=ab/НОД(a,b)
1

Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!

Красноярский краевой Дворец пионеров, (c)2006 - 2026, ИНН 246305493507, E-mail: admin@acmp.ru