Program p1;
Var a: integer;
Begin
a:=5+5*5;
Writeln('Ответ: ', a);
End.
Var
i, g: integer;
begin
for i := 50 downto 2 do
if i mod 2 = 0 then g := g + i;
writeln(g);
end.
3 ГБ = 3x1024 МБ=3072 МБ
3072+800=3872 МБ
1 - 3
2 - 4
3 - 5
4 - 1
5 - 2
6 - 8
7 - 6
8 - 7
9 - 11
10 - 12
11 - 13
12 - 10
13 -9
А) 1000<span> − 11</span><span> = </span><span>101
б) </span>10011<span> + 1</span>011<span> = 11</span><span>110
в) </span>101<span> × </span>101<span> = 11</span><span>001</span>