Const
N = 25;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
k:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(401)-200;
Write(A[i],' ');
if (A[i] = 0)and(i mod 3 <> 0) then k:=k+1;
End;
WriteLn;
WriteLn('k = ',k);
End.
Ответ:
1051 двоек
Объяснение:
9^2200 + 3^1200 − 3^150 + 6 = 3^4400 + 3^1200 - 3^150 + 6
3^1200 - 3^150 в троичной системе записываются, как 1050 двоек и 150 нулей.
6 записывается как 20. - 1 двойка
3^4400 записывается как 1 и 4400 нулей.
при сложении получается в целом 1051 двоек
begin
var q := ReadSeqInteger(3);
Write(q.Sorted.Take(2).Aggregate(0, (s, x)-> s + x * x).Sqrt:0:9);
end.
На 1 символ надо log(2)128=7 бит;
на 600 символов 600*7 бит = 600*7 / 8 байт = 525 байт = 525 / 1024 Кбайт = 0,5126953125 Кбайт
1) Var a:integer;
Begin
Writeln('Введите число');
Readln(a);
If (a mod 2 = 0) then writeln('Введённое число чётное.')
Else writeln('Введённое число чётное');<span>
End.
2) </span>var A,A1,B,B1,C,C1:integer;
Begin
a:=4;b:=1;c:=7;
Writeln('Дан треугольник со сторонами A=4 B=1 C=7');
Writeln('Введите стороны треугольника A,B,C');
Readln(A1,B1,C1);
If (A=A1) and (B=B1) and (C=C1) then writeln('треугольники равны')
Else writeln('треугольники не равны');<span>
End.
3)</span>var x,y:integer;
Begin
write('Введите первый промежуток: '); readln(x);
write('Введите второй промежуток: '); readln(y);
if x<y then write('Отдаляется')
else write('Приближается');
<span>end.</span>