после writeln() должно стоять ( ;)
и в конце не нужна readln
Var
N, i, k, sum, t: integer;
begin
readln(N);
k := 0;
for i := 100 to 999 do
begin
t := i;
while t > 0 do
begin
sum := t mod 10;
t := t div 10;
end;
if sum = N then k := k + 1;
end;
writeln(k);
end.
Const
N = 5;
var
i: integer;
a: array[1..N * 2 + 1] of integer;
begin
writeln('Исходный массив: ');
for i := 1 to 2 * N do
begin
a[i] := Random(99) + 1;
write(a[i] : 5);
end;
for i := 2 * N + 1 downto N + 1 do
a[i] := a[i - 1];
a[N + 1] := 0;
writeln();
writeln('Полученный массив: ');
for i := 1 to 2 * N + 1 do
write(a[i] : 5);
end.
Было - 6,8, при перемещении стало - 6. Ответ: 3 (0,8)
<span>Целая часть от деления Остаток от деления</span><span>12 div 2 = 6 12 mod 2 = 0</span><span>6 div 2 = 3 6 mod 2 = 0</span><span>3 div 2 = 1 3 mod 2 = 1</span><span>1 div 2 = 0 1 mod 2 = 1</span><span>Остаток от деления записываем в обратном порядке. Получаем число в 2-ой системе счисления: 1100</span>
<span>12 = 1100|2
</span><span>Для перевода дробной части числа последовательно умножаем дробную часть на основание 2. В результате каждый раз записываем целую часть произведения.
0.75*2 = 1.5 (целая часть 1)
0.5*2 = 1 (целая часть 1)
0*2 = 0 (целая часть 0)
0*2 = 0 (целая часть 0)
Получаем число в 2-ой системе счисления: 1100
0.75 = 1100|2
В итоге получаем число: 1100.1100|<span>2</span></span>