Форум: "Потрепаться";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];

Вниз

Степень!   Найти похожие ветки 

← →
Серж   (2003-02-27 18:49) [0]

Извените, что вопрос не в тему, но все таки!! А кто-нибудь пробовал в уме возводить число в квадрат (причем 2 илил трех значное), причем как максимуму за 1 минуту, такое реально? Есть ли закономерности?

---

← →
Palladin   (2003-02-27 19:19) [1]

ты в первый раз на сайте?

---

← →
Серж   (2003-02-27 20:25) [2]

Да нет, а что?

---

← →
Hint   (2003-02-27 20:28) [3]

Здесь в уме не считают!
Пишут программу "Калькулятор-CD-Лоток-Выдвигалку-Задвигалку" и 6 месяцев отлаживают. Потом продают за 15 у.е.
Кажется, кто даже покупал...

---

← →
Mihey   (2003-02-27 21:30) [4]

Ну я могу за минуту в уме вычислить.

---

← →
Серж   (2003-02-27 21:38) [5]

Тогда объяснги каким способом ты вычесляешь, только не говори, что в столбик перемножаешь :)

---

← →
Asker   (2003-02-28 02:34) [6]

ну для двузначных проблем нет..

---

← →
Dudao++   (2003-02-28 03:39) [7]

я пробовал - завис :)

---

← →
MBo   (2003-02-28 06:29) [8]

Тренируйся ;)

program Project1;
{$APPTYPE CONSOLE}
uses Windows,SysUtils;
var i,k,a,c:integer;
t:cardinal;
begin
t:=GetTickCount;
Randomize;
k:=0;
for i:=1 to 10 do begin
a:=Random(90)+10;
Writeln(Format("%d * %d =",[a,a]));
Readln(c);
if c<>Sqr(a) then begin
Writeln("Correct answer: ",Sqr(a));
Inc(k);
end;
end;
Writeln("Errors: ",k);
Writeln("Time: ",(GetTickCount-t)/1000:5:1," c");
Readln;
end.

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.012 c