Заполненная таблица в приложении.
отчисления на рекламу скопировать и вставить с транспонированием, тогда строка превращается в столбец.
Var Y,a,x:real;
c:Integer;
begin
read(a);
x:=0.5;
while x<=4.5 do begin
Y:=a+sqr(x);
writeln('x:',x:2:2,' Y:',Y:2:2);
c:=c+1;
x:=x+0.3;
end;
write('Среднее арифмитическое:',Y/c:2:2);
end.
я думаю что эт правильно
1)
var k,a,i,n : integer;
t : Text;
begin
readln (k);
n := 0;
Assign (t,'test.txt');
Reset(t);
i := 1;
while not Eof(t) do
begin
read (t,a);
if a = k then
n := i;
i := i +1;
end;
Close (t);
writeln (n);
<span> end.
2)
var
t,t1,t2 : Text;
i : integer;
a : real;
begin
Assign (t,'text.txt');
Reset (t);
Assign (t1,'r1.txt');
rewrite (t1);
Assign (t2,'r2.txt');
rewrite (t2);
i := 1;
while not Eof(t)
do
begin
read (t,a);
if i mod 2 = 1 then
write (t1,a:3:3,' ')
else
write (t2,a:3:3,' ');
i:= i +1;
end;
Close (t);
Close (t1);
Close (t2);
<span> end.</span>
</span>
Браузер - интернет-программа для поиска и просмотра
на экране компьютера информации из компьютерной сети.