Форум: "Потрепаться";
Текущий архив: 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.46 MB
Время: 0.009 c