Ответ:
а)2 б)1 в)3 г)4
var a , b : double ;
writeln(a,b);
readln(a*b*1/2) ;
end
Я не помню синтаксис паскаля , так что не обессудь
чему вас в школе учат..
Формула Хартли<span> определяет количество информации, содержащееся в сообщении длины n. </span>
Эта программа туда не вложена поэтому ее там нет
Var a1, a2, a3, a4, a5, a6 : integer // или другой тип, если нужен
begin
read(a1, a2,a3,a4,a5,a6)
write(a1+a2+a3+a4+a5+a6)
end.
Var a:array[1..10] of real; i:integer;
begin
for i:=1 to 10 do
a[i]:=(2*i-1)/cos(i);
for i:=1 to 10 do
writeln(i,'->',a[i]);
readln;
end.<span>
</span>