Program pr1;
Var A:array [1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
read (A[i]);
k:=0;
for i:=1 to 10 do
if A[i] mod 2=0 then
k:=k+1;
writeln;
writeln (k);
end.
наверное так, но лучше проверь в паскале
Найдём общее число символов:
4 * 30 * 50 = 6000 символов
I - объём
I = 4500 байтов = 36000 бит
Чтобы найти количество символов найдем i.
N = 2 в степени i
i = 36000 / 6000 = 6
N = 64
Ответ: 64 символа в алфавите.
Program P;
Var
a, n, i : Integer;
S : Integer;
Begin
S := 1;
Write('Enter a ');
ReadLn(a);
Write('Enter n ');
ReadLn(n);
for I:=1 to N do
S := S * a;
WriteLn('a ^ n = ', S);
ReadLn;
End.
РАССТОЯНИЕ МЕЖДУ ЧЕМ ЛИБО
Вероятная система каталога:
D:\\
-Информатика\
--Контрольная.txt
-Млекопитающие\
--хищники\
.
Ход такой, исходный путь:
<span>D:\\
-Млекопитающие\
--хищники\
.
Поднялся на 2 уровня вверх, то-есть перешол в корень каталога(</span>D:\\ ), после чего перешол в папку (-Информатика\ ), потом находим файл (--Контрольная.txt).