Program pr1;
Uses Crt;
Var
dn:integer;
begin
ClrScr;
write('Введите номер месяца:');
readln(dn);
if (dn>0) and (dn<13) then
begin
case dn of
1,3,5,7,8,10,12:writeln('В этом месяце 31 день');
4,6,9,11:writeln('В этом месяце 30 дней');
2:writeln('В этом месяце 28 дней');
end;
end
else writeln('Введите корректно');
readln;
end.
Var d,s:real; i:integer;
begin
d:=20; s:=d;
for i:=2 to 7 do
begin
d:=d+2;
s:=s+d;
end;
writeln('s = ',s);
end.
Результат:
<span>s = 182</span>
Количество информационных событий (сообщений) вычисляется как 2 в степени количества информации (в битах), которое получено в случае, когда произошло одно из этих событий. Т.е. 2 в 6 степени=64 возможных варианта.
.bmp - растровое изображение
.htm - гиперссылка на страницу или текст