5 страниц
84000бит=10500байт
1 символ =1байт
30*70=2100 байт - 1 страница
10500/2100 = 5 страниц
но... если учесть, что перевод строки занимает 2 байта... вычесления будут немного другими.
(70+2)*30=2160 1 страница (вместо 2100
program n_1;
var n, m, i: int64;
begin
readln(n);
m:=1;
i:=0;
while n>0 do begin
if (n mod 10) mod 3 = 0 then begin write(m,' '); i:=1; end;
n:=n div 10;
m:=m+1;
end;
if i=0 then write('Таких разрядов нет');
end.
Задачу решить проще всего методом подбора.
A2 =
.
B2 =
.
C2 =
.
Следуя логике, x >= 8, так как числитель должен быть больше знаменателя. Пробуем подставить:
A2 =
= 1.
B2 =
= 1.
C2 =
= 2.
Данные значения подходят для диаграммы.
Если решать полностью, то дробь
должны умножить на 2 и приравнять к
, потому что
является четвертью и при умножении равно
.
.
.
Второй корень не имеет смысла считать, так как он отрицательный.
Ответ: 8.
1)
Program kpa6ya;var x,y,N:integer;BEGINwriteln('x=');readln(x);writeln('y=');readln(y);writeln('N=');readln(N);if (N<1) and (N<2*108) then begin writeln('BBeguTe oT 1 go 2*108 4ucJlo N, a He ',N); readln(N); end;writeln(N/(x+y),' - BpeM9');END.
Program dlksjijh;
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.
