Program lol;
var a:integer;
begin
for a:=100 downto 1 do
begin
if a mod 3 = 0 then
writeln(a);
end;
<span>end.
P.S.
в строке </span>for a:=100 downto 1 do вместо 100 вставь нужное тебе значение советую меньше 1000 а то долго считает<span>
</span>
В четверичной системе счисления
Количество символов в тексте k=I/i, где I- объем текста, i- количество бит на 1 символ.
i=㏒₂N, где N- количество символов в алфавите.
i=㏒₂64 = 6 бит
k=8190/6= 1365 символов
В 1 байте 8 бит, значит 4*8=32бита
Var P,S,t,g:real;begin write('введите массу стола '); read(t); S:=100; g:=10; P:=(g*t)/S;write('давление на пол, создаваеммое столом равно ',P);end.