А1 - 2
А2 - 3
А3 - 3
А4 - 4
А7 - 1
А15 - 2
А16 - 1
#9
True Surge▼
С2
for i:=1 to N do
begin
if (a[i]>0) and (a[i] mod a[1]=0) then
begin
s:=s+a[i];
x:=x+1;
end;
end;
s:=s/x;
writeln ('Среднее арифм. =' ,s)
end.
B5. x^0*8 + +x^1*10 + x^2*1= 344
x^2 + 10*x - 336= 0
А8 я не пойму как решать
x = 14Добавлено (26.05.2011, 22:39)
---------------------------------------------
я решил C4, правильно нет?
C4
var
ch : char;
s : string;
a, b, c, code : integer;
d : real;
begin
s := '';
read(ch);
while ch <> 'a' do begin
s := s + ch;
read(ch);
end;
read(ch);
val(s, a, code);
s := '';
while ch <> 'b' do begin
s := s + ch;
read(ch);
end;
val(s, b, code);
readln(c);
d := b*b - 4*a*c;
writeln((-b-sqrt(d))/(2*a):0:1);
writeln((-b+sqrt(d))/(2*a):0:1);
Добавлено (26.05.2011, 23:01)
---------------------------------------------
а с1 так?
1) y=1 x=1
2) if (y>=-1)and(y<=x)and(y<=-x)and(y>=-cos(x)) and (y<0) then
writeln('прин')
else
writeln('не прин ')
