Var lc:real;
Begin
write('Кол-во лошадиных сил = ');
readln(lc);
write(lc * 0.735);
End.
Var s,n: integer;
begin
read(n);
s:=0;
for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;
writeln(s);
end.
Var
a:array [1..100] of integer;
i:integer;
begin
randomize;
write('массив:');
writeln;
begin
for i:=1 to 100 do
a[i]:=random (40)-20;
end;
for i:=1 to 100 do
writeln(a[i]);
end.
Ответ:149E
http://reshinfo.com/v_hestnadcatirichnuju_3.php?sn=5278&sys=10&x=30&y=6
Количество символов в алфавите марсиан (количество различных символов в приветствии) = 8. Для кодирования одного из 8 символов требуется log(2)8 = 3 бита (2^3=8). Приветствие состоит из 10 символов, количество информации в нем: 10*3 = 30 бит.
Ответ: г) 30 бит