Var a,b,i,z:integer;y,x,h,k:real;
begin
write('введите a,b,h');read(a,b,h); k:=(b - a)/h;z:= round(k);
for i:=0 to z do begin
x:=a + h*i;
y:= x*x *sin(x*Pi/180);
write(x:6);writeln(y:21:6);<span>end;</span>
75-12=63 варианта
Все, что нам остается сделать, это найти ближайшую степень двойки, превышающую число вариантов, то есть 64, тогда, количество информации в сообщении "Даниил загадал 70" по формуле Хартли:
I=log₂64=6 (бит)
Var
dd1,mm1,yyyy1,dd2,mm2,yyyy2:integer;
ww:real;
Begin
Writeln('Введи текущую дату "дд мм гггг"');
Readln(dd1,mm1,yyyy1);
Writeln('Введи дату рождения "дд мм гггг"');
Readln(dd2,mm2,yyyy2);
yyyy1:=(yyyy1-yyyy2);
if mm2>mm1 then begin yyyy1:=yyyy1-1; mm1:=mm1+12; end;
mm1:=mm1-mm2;
if dd2>dd1 then begin mm1:=mm1-1; dd1:=dd1+30; end;
dd1:=dd1-dd2;
ww:=dd1+mm1*30.4368499+yyyy1*365.242199;
Writeln(round(ww));
<span>End.</span>
<span>электрические, оптические, беспроводные</span>