30.01.2009, 23:20
общий
это ответ
Здравствуйте, Kovalenko!
Решение простое.
Вчетвертом задании я взял файл как текстовый f.txt так как компоненты - числа, должно работать. Насчет вывода ничего не сказано, поэтому на экран.
Приложение:
1
var
i:integer;
a,m:real;
begin
m:=high(integer); //это будет максимум, то есть любое число будет меньше него и обработается
For i:=1 to 30 do begin
Read(a);
if a>m then m:=a; //считываем и сразу проверяем
end;
Write(m);
end.
2
var
n,i,j,t:integer;
begin
Read(n);
t:=0; //количество положительных
For i:=1 to n do
For j:=1 to n do
if sin((i+j)/2)>=0 then t:=t+1; //если положит, то увел. количество
Write(t);
end.
4
var
i,t,s:integer;
begin
Reset(input,'f.txt'); //открываем
s:=0;
While not SeekEof do begin
Read(t);
if round(sqrt(t)) mod 2<>0 then s:=s+1; //если нечетн, то увел счетчик
end;
Write(s);
end.
3
var
a:array[0..12] of real;
s,t,p1,q,p3,pt,ps:real;
i,j:integer;
begin
Read(s);
Read(t);
For i:=0 to 12 do Read(a[i]);
p1:=0;
For i:=0 to 12 do //вычисл р(1)
p1:=p1+a[i];
p3:=p1*p1*p1; //вычисл р(1)^3
pt:=0;
For i:=12 downto 0 do begin //вычисл р(t)
q:=1;
For j:=i downto 1 do
q:=q*t;
pt:=pt+q*a[i];
end;
ps:=0;
For i:=12 downto 0 do begin //вычисл р(t)
q:=1;
For j:=i downto 1 do
q:=q*(s-t);
ps:=ps+q*a[i];
end;
ps:=ps*ps; //вычисл р(t)^2
q:=p1-ps+pt-p3; //общий результат
Write(q);
end.