Форум: "Потрепаться";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];
Вниз
Для разминки мозгов Найти похожие ветки
← →
Николай Быков (2002-11-01 17:30) [0]Завтра в нашей школе будет школьная олимпиада по математике.
Так как мы - самый умный класс считаемся, то в полном составе должны в добровольно-принудительном порядке в ней учавствовать.
Не могли бы вы подкинуть парочку задачек, чтобы я смог разиять мозги перед олимпиадой.
ЗЫ
В воскресенье (3 ноября) будет III Всесибирская олимпиада по информатике. Можете и на эту тему несколько задачек дать, если не трудно.
← →
ded_di (2002-11-01 17:38) [1]Я уже дал задачу, Вы решили. Поменяйте местами 2 переменные без использования третьей (для разминки самое оно).
← →
Николай Быков (2002-11-01 17:42) [2]
uses crt;
var
a,b:integer;
begin
clrscr;
WriteLn("Введите два числа");
ReadLn(a,b);
a:=a+b;
b:=a-b;
a:=a-b;
WriteLn(a," ",b,#10#13,"Press any key");
readkey;
end.
← →
ded_di (2002-11-01 17:44) [3]Еще. Так вы можете выйти за границы интеджера
← →
ded_di (2002-11-01 17:44) [4]не копируйте чужие ответы
← →
Николай Быков (2002-11-01 17:45) [5]А я и не копирую. Эта задача стара как Микрософт
← →
MBo (2002-11-01 17:46) [6]http://ccfit.nsu.ru/olimpic/nsu/archive/2002/problems1.shtml
http://acm.timus.ru/problem.asp?rus
← →
Darts (2002-11-01 17:52) [7]Можно и так, без проверки результата (при умножении) за границы integer
uses crt;
var
a,b:integer;
begin
clrscr;
WriteLn("Введите два числа");
ReadLn(a,b);
a := a * b;
b := a div b;
a := a div b;
{
a:=a+b;
b:=a-b;
a:=a-b;
}
WriteLn(a," ",b,#10#13,"Press any key");
readkey;
end.
← →
ded_di (2002-11-01 17:53) [8]1.Найти ближайший к указанному счастливый билет. Количество позиций не ограничивать. Ограничивать время работы программы.
2.Найти все пары дружественных чисел на отрезке [a..b]. Числа называются дружественными, если s(A)=A+B=s(B) , где s(A) - сумма всех делителей числа A.
← →
Андрей Прокофьев (2002-11-01 17:53) [9]
A := A xor B;
B := B xor A;
A := A xor B;
← →
ded_di (2002-11-01 17:54) [10]
> Николай Быков © (01.11.02 17:45)
> А я и не копирую. Эта задача стара как Микрософт
Не вижу решения
← →
Darts (2002-11-01 17:54) [11]> А я и не копирую. Эта задача стара как Микрософт
Неверно. Microsoft появилась в 1976 г. Задача древнее.
← →
ded_di (2002-11-01 17:55) [12]
> Андрей Прокофьев © (01.11.02 17:53)
>
> A := A xor B;
> B := B xor A;
> A := A xor B;
теперь вижу, но это не Быков
← →
ded_di (2002-11-01 17:57) [13]
> MBo © (01.11.02 17:46)
> http://ccfit.nsu.ru/olimpic/nsu/archive/2002/problems1.shtml
> http://acm.timus.ru/problem.asp?rus
Спасибо.
← →
Darts (2002-11-01 17:58) [14]> Николай Быков © (01.11.02 17:42)
Расскажешь нам, какое ты место занял по математике и (или) информатике?
← →
Николай Быков (2002-11-01 18:01) [15]А вы сами сможете поболеть за нашу команду "Qwerty" в воскресенье с 9:00 по Москве на сайте НГУ.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.008 c
