Var m,n:integer;
Begin
write('Введите m и n: ');
readln (m,n);
while m<>n do
begin
If m>n then m:=m-n
else n:=n-m
end;
write ('НОД=',m)
end.
<span>На место "..." </span>ставим "<>"
PORT TTTO TTOO OOPO PTON ONNO
Начинаем вычеркивать цепочки, которые не удовлетворяют требованиям.
1. В конце цепочки P, N, T, O - для всех правда.
PORT TTTO TTOO OOPO PTON ONNO
2. На первом месте P, R, T, O - для всех правда.
PORT TTTO TTOO OOPO PTON ONNO
3. На первом и третьем местах разные буквы - не подходит TTTO.
PORT TTOO OOPO PTON ONNO
4. На третьем месте O, P, T - не подходят PORT, ONNO.
TTOO OOPO PTON
5. Третья и четвертая бусины разные - не подходит TTOO.
OOPO PTON
Ответ. 4, 5.
n = int(input("Введите n: "))
s = 0
for i in range(0,n+1):
s = s+1/(2*i+1)
print('s = ',s)
Пример:
Введите n: 5
s = 1.878210678210678
var
y: <em>real</em>;
begin
read(y);
writeln(System.Math.Pow(System.Math.Tan(<em>y * Pi / 180</em>), 3));
<span>end.</span>
Мощность алфавита 256 символов, следовательно, 1 символ занимает 2^i=256 => i = 8 бит = 1 байт. Для того чтобы найти объём текста необходимо кол-во символов умножить на размер одного символа. Тогда имеем: 300*1 байт = 300 байт.