Program task;
var i,a,b,h:longint;
begin
writeln('a?');
readln(a);
writeln('b?');
readln(b);
writeln('h?');
readln(h);
i:=a;
while (i<=b) do begin
writeln(sin(i)*sin(i));
i+=h;
end;
readln;
end.
Const n=3;{можно любое число}
var a:array [1..n] of Integer;x,q,i:Integer;b,c,z:Real;
begin
for i:=1 to n do
begin
Write('a[',i,']=');
ReadLn(a[i]);
end;
x:=a[1];
for i:=2 to n do
if x<a[i]
then x:=a[i];
c:=x;
Writeln(c:3:2,'-Naibolshoe');
q:=a[1];
for i:=2 to n do
if q>a[i]
then q:=a[i];
z:=q;
Writeln(z:3:2,'-Naimenshoe');
b:=(x+q)/2;
WriteLn(b:3:2,'-seredne arifmitichne') ;
readln;
end.
1.
а) обработка;
б) получение;
в) запоминание;
г) обмен;
д) отправка;
е) запись;
2. Редактор газеты, журналист, специалист CaLL центра.
Paint
<span>который входит в состав MS Windows</span>
Так как D3 изменилось на D7,то =B1*C2 изменится на =B5*C6