1.
var i,k:integer;
begin
for i:=150 to 225 do
if i mod 7=0 then k:=k+1;
write(k)
end.
2.
var a,s:integer;
begin
read(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
if s mod 10=0 then write('Правда') else write ('Неправда')
end.
1) 2^4=16 этажей
2) N=(кол-во дней в месяце)*(кол-во месяцев)*(кол-во часов в сутках)= 31*12*24=8928; N=2^I =8928; I =log2 8928 ≈13,124 бит - кол-во инф-ции
3) 2^4<25<2^5 ---> 5 бит для кодирования 1-ого символа; 5*8=40 бит для кодирования сообщения из 8 символов.
ну буквы Вы не написали, поэому задание полностью выполнить не получится. Но Вы можете сами записать буквы, по представленному адресу: <u>http:\\doc.com\print.doc</u>
как правило бесплатное програмное обеспеченье бывает либо урезанным либо с
пробным периудом использования