М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
kristos24052006
kristos24052006
19.09.2022 01:20 •  Информатика

Дан условный оператор: if(a<15)theny:=aelsey:=a+4.
Условием является

y:=a+4
a<15
y:=a
все ответы верные

👇
Ответ:
concon1233
concon1233
19.09.2022

привет. условие является а<15

4,5(87 оценок)
Открыть все ответы
Ответ:
r2973548
r2973548
19.09.2022

1 задача:

import math

a=int(input())

b=int(input())

if(math.fabs(a+b)>20):

   print(math.pow(a,2))

else:

   b=math.fabs(b)

   print(math.sqrt(b))

2 задача:

a=int(input())

if a == 5:

   print("Отлично")

elif a == 4:

   print("Хорошо")

elif a == 3:

   print("Удовлетворительно")

elif a == 2:

   print("Плохо")

elif a == 1:

   print("Отвратительно")

else:

   print("Это не оценка")

3 задача:

x=int(input())

y=int(input())

a=int(input())

b=int(input())

a7 = a%x

b7 = b%y

if(a7>b7):

   print("7A")

else:

   print("7Б")

4 задача:

import math

print("Введите интервал")

a=int(input())

b=int(input())

while(a<=b):

   if a<100:

       r=13*math.pow(a,2)

       print("X=" + str(a) + " y=" + str(r))

   elif a>100:

       r=math.pow(a,3)-100

       print("X=" + str(a) + " y=" + str(r))

   else:

       r=30-(a/(a-5))

       print("X=" + str(a) + " y=" + str(r))

   a=a+1

5 задача:

import math

print("Введите интервал")

a=int(input())

b=int(input())

while(a<=b):

   if a<4:

       r=3*a-7

       print("X=" + str(a) + " y=" + str(r))

   else:

       r=5*math.pow(a,2)

       print("X=" + str(a) + " y=" + str(r))

   a=a+1

Объяснение:

4,5(3 оценок)
Ответ:
bilainфом
bilainфом
19.09.2022
//Pascal
  var a,b, I, maxsumm, max : integer;
 
  function summdel(x:integer):integer; //результат - сумма делителей х
  var k,sum:integer;
  begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
  end;
 
  begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
  end.
4,4(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ