<span>var
i, j, a, b: integer;
s: real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
for i := a to b do
if (i mod 3) = 0 then
begin
s := s + i;
inc(j);
end;
s := s / j;
writeln('Ответ: ', s);
<span>end.</span></span>
Ответ:
Ни один крупный проект не пишется в одном файле. В папке прикладной программы помимо основного исполняемого файла обычно лежат всё её модули, файлы конфигурации, файлы с текстурами/звуками, библиотеки динамического подключения .dll и прочее. Удаление любого из этих файлов приведёт к нарушению работы программы, так как основные исполняемые файлы могут искать свои модули только в одной конкретной папке, прописанной разработчиком приложения (и в 99% случаев это та же папка, в которой лежит исполняемый файл)
Объяснение:
Дано: N=256, а=15, в=32, с=64
Найти: I
I= k*i, где k- количество символов в тексте, i - количество бит на символ
N=2^i, где N- количество символов в алфавите, 256= 2^i,
отсюда i= 8
k= a*b*c= 15*32*64= 30720 символов
I=30720*8= 245760 бит = 30720 байт
2)E:\ИЗОБРАЖЕНИЯ\ФОТО\Катунь.jpeg
Var n,m,q,i:integer;f:boolean;
begin
read(m,n);
f:=true;
while f=true do begin
f:=false;
if m>n then q:=n else q:=m;
for i:=2 to q do begin
if (m mod i = 0) and (n mod i = 0) then begin m:=m div i;n:=n div i;f:=true;end;
end;
end;
writeln(m,'/',n);
end.
По идее так, не проверял.