var
a,b,c,count:integer;
begin
count:=0;
readln (a,b,c);
if (a mod 2=0) then count:=count+1;
if (b mod 2=0) then count:=count+1;
if (c mod 2=0) then count:=count+1;
writeln (count);
end.
И так считаем :
2^20=1048576(бит)
1 байт равен 8(бит) ,значит
1048576 : 8 =131072 (байта) ;
1кбайт равен 1024 (байта), значит
131072 :*1024 =128(кбайта).
Ответ:2^20бит =128кбайт
Отличных оценок вам)
Переменная b будет увеличиваться на единицу с каждым выполнением нижнего блока, а в переменной c будет накапливаться сумма всех b.
Раз сумма в c считается до увеличения b, то значит в конце (выход происходит при b=11), получим сумму всех целых чисел от единицы до десяти. Такая сумма равна 55.
Вот как будут меняться значения переменных при выполнении программы по этому алгоритму:
c b
0 0
0 1
1 2
3 3
6 4
10 5
15 6
21 7
28 8
36 9
45 10
55 11
Ответ: после выполнения алгоритма c=55
Программа (вариант 1):
var
b, c: integer;
begin
b := 0;
c := 0;
repeat
c := c + b;
b := b + 1;
until b = 11;
Print('b=', b, ' c=', c);
end.
Программа (вариант 2):
var
b, c: integer;
label loop1, loop2;
begin
b := 0;
c := 0;
loop1: if b = 11 then
goto loop2
else
begin
c := c + b;
b := b + 1;
goto loop1;
end;
loop2: Print('b=', b, ' c=', c);
end.
При помощи языка мы общаемся и помогает в этом нам словестные описания
1. мощность - 64, начит 1 символ занимает 6 бит. а 200 символов занимают 200*6=1200 бит /8 = 150 байт.
2. 2 в 20 степени
3. мощ. =64 - 1 символ = 7 бит, если 128, то один сивол = 7 бит, значит объём второго в 7/6 раз.
4. 16 кбайт = 2 в 14 степини байт = 2 в 17 степени бит
5. 64 буквы, значит мощность = 64, а значит 1 символ = 6 бит
Прости незнаю как тебе надо оформить) так что как есть)