128=2^7 значит 7 бит весит 1 символ
80*60=4800 символов
4800*7=33600 бит=4200 байт=4,1 килобайт
Const n=10;
var a:array[1..n] of integer;
i,s1,s2:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
s1:=0; s2:=0;
for i:=1 to n do
if i mod 2 = 1 then s1:=s1+a[i] else s2:=s2+a[i];
writeln('s1 = ',s1,' s2 = ',s2);
end.
Пример:
Массив A:
21 46 43 5 40 32 26 34 29 48
s1 = 159 s2 = 165
Подробнее - на Znanija.com -
znanija.com/task/22500151#readmore
Ответ:
10
Объяснение:
У исполнителя Бета две команды, которым присвоены номера:
1. прибавь b
2. умножь на 2
Программа 12121 переводит число 25 в число 170.
Составим уравнение:
(((25+b)*2)+b)*2+b=170
(50+2b+b)*2+b=170
100+4b+2b+b=170
7b=70
b=10
Проверка:
25+10=35
35*2=70
70+10=80
80*2=160
160+10=170
Var
n, i: Integer;
s: Real;
begin
Write('Сколько слагаемых? ');
readln(n);
for i := 1 to n do
s := s + 1 / (i * (i + 1) * (i + 2));
WriteLn('Сумма ряда = ', s);
end.