araqsyabadalyan1988
?>

1. Жоба деген не? 2. Жоба құрудың кезеңдерін көрсетіңіздер. 3. Презентация дегеніміз не?​

Информатика

Ответы

amaraks67
Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
 then writeln('Не квадратное уравнение!')
 else begin
      d:= sqr(b)-4*a*c;
      if d < 0 then writeln('Нет корней')
               else begin
                    x1:= (-b+sqrt(d))/2*a;
                    x2:= (-b-sqrt(d))/2*a;
                    writeln ('X1 =',x1,'  X2 =',x2);
                    end;
      end;
end.
FATEEV
Const n=10; m=5;
var a:array[1..n,1..m+1] of integer;
i,j,k,sp,s:integer;
begin
Randomize;
writeln('  Результаты соревнований');
for i:=1 to n do
 begin
 s:=0;
 for j:=1 to m do
  begin
  a[i,j]:=random(50)+50;
  write(a[i,j]:4);
  s:=s+a[i,j];
  end;
  a[i,m+1]:=s;
  writeln(s:5);
 end;
write('k='); readln(k);
sp:=0;
for i:=1 to n do
 if a[i,m+1]>=k then sp:=sp+1;
writeln('sp=',sp);
end.

Пример:
  Результаты соревнований
  69  52  91  62  65  339
  70  53  96  56  97  372
  78  98  94  61  62  393
  62  86  50  58  95  351
  82  98  53  56  81  370
  75  64  56  85  54  334
  69  99  53  72  97  390
  55  75  66  59  61  316
  99  71  83  75  51  379
  91  73  53  88  79  384
k=350
sp=7

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

1. Жоба деген не? 2. Жоба құрудың кезеңдерін көрсетіңіздер. 3. Презентация дегеніміз не?​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Вадим-Рашад323
Chistov9721209
skyey
partners
zbellatriks
oledrag7
gamolml
Sergeevna-Makarov
kep92
ortopediya
info-mosbalkon
menametov
zolotayaoxana1982
Баканова1415
buhh20104519