Begin
var k := 24.0;
var m := k / 3;
k := m / 4 + 2;
m := m + 2 * k;
Println(k, m);
end.
Ответ 4 16
begin
var x := 23;
var y := 12;
y := 3 * x - 4 * y;
var z := 0.0;
if x > y then
z := 3 * x + y
else z := 2 + x * y;
Println(z);
end.
Ответ 90
<h3>Укажите правильные варианты объявления переменных: </h3><h3>Б, Е.</h3>
А) имя не может начинаться с цифры
В) В имени недопустим символ ^
Г) В имени недопустим символ $
Д) В Паскале не различаются строчные и прописные буквы, поэтому s и S - это одно и то же имя - дважды объявлять имя нельзя.
<h3> Следующие математические функции работают только с целыми числами:</h3><h3>А, Г.</h3>
Б) Sqrt - это функция вычисления квадратного корня; определена для вещественных типов и приводящихся к ним целочисленных
В) Abs - это функция вычисления модуля; определена также для вещественных типов и приводящихся к ним целочисленных
Д) Ln - это функция вычисления натурального логарифма; определена также для вещественных типов и приводящихся к ним целочисленных
Е) Sin - это функция синуса; определена также для вещественных типов и приводящихся к ним целочисленных.
Переведём 31 в другие системы, начиная с двоичной
31_10 = 11111_2 = 1011_3 = 133_4 = 111_5 = 51_6 = 43_7
---------------
Остаток от деления 32 на n
n - остаток
<span><span><span>
5
2
</span>
<span>
6
2
</span>
<span>7
4
</span>
<span>
8
0
</span>
<span>
9
5
</span>
<span>
10
2
</span>
<span>
11
10
</span>
<span>
12
8
</span>
<span>
13
6
</span>
<span>14
4
</span>
<span>
15
2
</span>
<span>
16
0
</span>
<span>
17
15
</span>
<span>18
14
</span>
<span>
19
13
</span>
<span>
20
12
</span>
<span>
21
11
</span>
<span>
22
10
</span>
<span>
23
9
</span>
<span>
24
8
</span>
<span>
25
7
</span>
<span>
26
6
</span>
<span>
27
5
</span>
<span>28
4
</span>
<span>
29
3
</span></span></span>
-------
65_8 = 53_10 = 1 + n +3n^2
<span>3 n^2 + n - 52 = 0
</span>n=4
//Pascal ABC.NET v3.1 сборка 1172
Const
n=4;
Var
ar:array[1..n] of integer;
i,j:integer;
k:real;
begin
writeln('Array:');
for i:=1 to n do
readln(ar[i]);
k:=ar[1]/ar[2];
for i:=1 to n-1 do
if ar[i]/ar[i+1]<>k then
begin
writeln('No');
exit;
end;
writeln('Yup');
end.
Пример ввода:
1
2
4
8
Пример вывода:
Yup
1640 секунд примерно, если перевести в минуты, то <span>27 приблизительно!</span>
