Const
n = 10;
var
a: array[1..n] of integer;
i: integer;
begin
for i := 1 to n do
a[i] := i * i * i;
writeln(a[1] + a[5] + a[n]);
end.
<span>Все буквы различны, каждая вынуждена встречаться только 1 раз, поэтому количество слов будет равняться количеству перестановок P =7 (при условии, что на "ы" тоже слова могут начинаться) = 7*6*...*1 = 5040</span>
Дано:
T=300<em>c</em>
V=120<em>kb = 122880 байт </em>
R=8 <em>бит = 1 байт</em>
Найти:
<em>F</em>
Решение:
<em>V=FRTK </em>K=2
F= V/RTK= 1228800\2*1*300=204,8 гц
Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
<span>end.</span>
А8=7*1000000+2*100000+5*10000+1*100+3+1*0,1+2*0,01