cristiansirbu9974
?>

составить блок-схему по программе! program zadac; var z, N:integer; A:array [1..250] of integer; B:array [1..250] of integer; C:array [1..250] of real; procedure funс(x:integer); var j:integer; begin for j:=1 to N do begin A[j]:=random(91)-43; write(a[j]:5, ''); end; writeln; for j:=1 to N do begin B[j]:=random(88)-36; write(B[j]:5, ''); end; writeln; end; begin write('Введите кол-во элементов массива N = '); read(N); funс(1); for z:=1 to N do begin C[z]:=(A[z]+B[z])/2; write(C[z]:5:1); end; end.

Информатика

Ответы

Nikolaevna382

print("Ноль в качестве знака операции"

     "\nзавершит работу программы")

while True:

   s = input("Знак (+,-,*,/): ")

   if s == '0':

       break

   if s in ('+', '-', '*', '/'):

       x = float(input("x="))

       y = float(input("y="))

       if s == '+':

           print("%.2f" % (x+y))

       elif s == '-':

           print("%.2f" % (x-y))

       elif s == '*':

           print("%.2f" % (x*y))

       elif s == '/':

           if y != 0:

               print("%.2f" % (x/y))

           else:

               print("Деление на ноль!")

   else:

       print("Неверный знак операции!")

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

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

составить блок-схему по программе! program zadac; var z, N:integer; A:array [1..250] of integer; B:array [1..250] of integer; C:array [1..250] of real; procedure funс(x:integer); var j:integer; begin for j:=1 to N do begin A[j]:=random(91)-43; write(a[j]:5, ''); end; writeln; for j:=1 to N do begin B[j]:=random(88)-36; write(B[j]:5, ''); end; writeln; end; begin write('Введите кол-во элементов массива N = '); read(N); funс(1); for z:=1 to N do begin C[z]:=(A[z]+B[z])/2; write(C[z]:5:1); end; end.
Ваше имя (никнейм)*
Email*
Комментарий*

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

Pautova1119
armusaeff
Оксана Николаевич
Ярослав
Sharap
Андреевна-Арзуманян1109
Galina_Yurevna
symkifm
vera4
gavrilasmax05
mmctriitsk
bal4shovser16
Berezovskaya
irinatikhonov
klimenokvapeshop1408