Игра в которой фигуры перемешаются эта игра называется шахматы я так думаю
Var
N: integer;
Begin
Write('Введите номер урока: ');ReadLn(N);
Case N of
'1':WriteLn('Математика');
'2':WriteLn('Физика');
'3':WriteLn('Химия');
'4':WriteLn('Геометрия');
'5':WriteLn('География');
'6':WriteLn('Краеведенье');
End;
End.
Правильный ответ : 2017-ое квадратное число = 3194.
проверено в Excel.
Решение:
для начала нужно понять как идут наши числа, то есть понять логику построения.
6 8 9 16 18 19 26 28 29 36 38 39 и т.д. 10-ое квадратное число = 36. значит логика построения верная.
как мы можем увидеть из этого кусочка - после первых трех чисел идут те же числа,но увеличенные на десяток.
в 100 первой сотне всех числе у нас "квадратных" 51 -> весь шестой десяток, весь восьмой и весь девятый,в остальных десятках по 3 числа = 30+7*3 = 51.
Получаем :
100 = 51
200= 102
300 = 153
400 = 204
500 = 255
600 = 355 (так как вся сотня с "квадратной" 6)
700 = 406
800 = 506
900 = 606
1000 = 657
2000 = 657+657=1314
3000 = 1314+657 = 1971
3100 = 1971+51=2022
так как нам нужно 2017-ое число,то идем из конца сотни и находим наше число
=>3194.
Таким образом получаем ответ : 3194
14400 бит = 1800 байт.
225 кб = 230400 байт.
230400÷1800=128с.
Ответ: Файл будет передан за 128 секунд.
Read (x). Оператор ввода значения переменной с клавиатуры.
Если программа представляет собой последовательность выполнения различных задач, в том числе и Read, то когда очередь дойдет до него программа запросит у вас ввод данных и пока вы не выполните требования, она не продолжит работу.
х - это переменная. Переменные бывают различных типов (не все подходят для read). Два основных типа: Число (integer) и Символ(Char). Если х типа integer, то вам придется ввести целое число (например 2). Но при вводе символа программа выбьет ошибку "Ошибка ввода", так как вы попытались присвоить переменной числа, букву, а это невозможно.
Рассмотрим пример программы: здесь х типа integer,сначала он намеренно присвоен 5 и выведен на экран, затем вам дается возможность ввести новый х, и он заново выведется. Если вы попытаетесь ввести символ то выбьет ошибку "ошибка ввода", попробуйте.
Var x:integer;
Begin
x:=5;
writeln ('x=',x);
write ('Enter a new X: ');
read (x);
writeln ('x=',x);
end.
