Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
2^i=n, n = 16
2^i=16
i=4 бит
50 * 4 = 200 бит
200: 8 = 25 байт
почитай тут
1)
s : = 0;
for i : = 1 to k do
begin
if i mod 2 < > 0 then
s: = s + i;
end;
2)
for i : = 5 to 55 do
writeln(i);
3)
s : = 1;
for i : = n to m do
s: = s * i;
4)
for i : = 10 to 15 do
обрамления там везде одинаковые
var a: array[1..20] of integer; s,i: integer; begin
s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.
Популярные вопросы