program z1;
var n,m:integer;
rost,nine_a,nine_b:real;
begin
write('Введите количество учинеков 9а класса: ');
readln(n);
write('Введите количество учинеков 9б класса: ');
readln(m);
writeln('Вводите рост каждого из учинеков 9а по очереди');
for i:integer :=1 to n do begin
write(i,': ');
read(rost);
nine_a:=nine_a+rost;
end;
nine_a:=nine_a/n; // средний рост 9а
writeln('Вводите рост каждого из учинеков 9б по очереди');
for i:integer :=1 to m do begin
write(i,': ');
read(rost);
nine_b:=nine_b+rost;end;
nine_b:=nine_b/n; // средний рост 9б
if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');
<span>end.
как-то так, будут вопросы пиши)
Всего-то 30 мин</span>
Ответ:
program Calc;
var
k, x, a, c, y: Double;
begin
Write ('k, x, a, c = ');
ReadLn (k, x, a, c);
if x > 0 then begin
y := k * Sqr (x);
WriteLn ('y = ', y);
end else if a + c <> 0 then begin
y := - x / (a + c);
WriteLn ('y = ', y);
end else
WriteLn ('деление на ноль');
ReadLn;
end.
<span>а) (-b-sqrt(sgr(b)-4*a*c))/(2*a) = (-b- √(b^2 - 4ac))/(2a)
b) 75*sqrt(sgr(b)+2*a)/(sin(0.6)-a) = 75√(b^2 + 2a)/(sin (0,6) - a)
c) sin(a – exp(3*ln(b)))/(sqr(a)+cos(b))</span> = sin(a - e^(3ln b)) / (a^2 + cos b)
Var n,x:integer;
begin
read(n);
if n mod 3 = 0 then
begin
n := n div 3;
for x := 1 to n do
if n mod x = 0 then
write(3*x,' ')
end
else
write('Not found')
end.
Var
a, b, c, t: integer;
begin
readln(a, b, c);
if c > b then begin
t := b;
b := c;
c := t;
end;
if c > a then begin
t := a;
a := c;
c := t;
end;
writeln(a + b);
end.
