Мощность второго алфавита в два раза больше 2048*2=4096
<em>var</em>
<em> a, b, c : integer;</em>
<em> </em>
<em>begin</em>
<em> write('введите a ');</em>
<em> readln(a);</em>
<em> write('введите b ');</em>
<em> readln(b);</em>
<em> write('введите c ');</em>
<em> readln(c);</em>
<em> writeln((sqr(a)+sqr(b)+sqr(c))/sqrt(max(a, max(b, c))));</em>
<em>end.</em>
протестировано в PascalABC.Net
Судя по всему это цикл, в начале i равно 2, цикл работает до 7.
0 + 2 = 2
2 + 3 = 5
5 + 4 = 9
9 + 5 = 14
14 + 6 = 20
20 + 7 = 27
Sum равна 27
Шукай фото на вікіпедії.і просто напиши свої відчуття вчителі точно оцінять.
Ответ:
var
ar: array [1..20] of Integer;
a, b, i: Integer;
begin
Randomize;
for i := Low (ar) to High (ar) do begin
ar [i] := Random (47) - 12;
Write (ar [i], ' ');
end;
WriteLn;
Write ('A, B = ');
ReadLn (a, b);
for i := Low (ar) to High (ar) do
if (ar [i] >= a) and (ar [i] <= b) then
Write (ar [i], ' ');
ReadLn;
end.