// Pascal ABC.NET
var
n1, n2, sum : integer;
begin
sum := 0;
readln(n1, n2);
sum := n1 + n2;
if sum < 5 then
writeln('Привет');
if sum > 5 then
writeln('Пока');
end.
var a: integer;
begin
Randomize;
a := 100 + Random(900);
Writeln(a);
while (a > 0) and (a mod 2 = 0) do a := a div 10;
if a = 0 then
Write('да')
else
Write('нет')
end.
Каждый символ может иметь 64 значения, то есть 2^6, тогда на каждый символ выделяется 6 бит.Всего символов - 100. Значит всего нужно 6*100=600 бит=75 байт.
1. Китайцы - мышонок, Немцы - обезьяний хвост, Итальянцы и французы - улитка