В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
verysadsavant1
verysadsavant1
22.11.2020 21:11 •  Информатика

с информацией, любое задание порадует<3​

Показать ответ
Ответ:
сашп17
сашп17
05.12.2020 12:15

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("Неверный знак операции!")

0,0(0 оценок)
Ответ:
nkds00005
nkds00005
18.07.2022 06:07

var a,k3,k4,k5,i: integer;

cr:real;

begin

 k3:=0;

 k4:=0;

 k5 := 0;

 cr:=0;

 for i:=1 to 20 do

 begin

   writeln('введите оценку ученика');

   readln (a);

   cr:=cr+a;

   if a mod 3=0 then k3:=k3+1 else if a mod 4= 0 then k4:=k4+1 else k5:=k5+1;

     end;

 writeln('число отметок 5,полученных учениками за контрольную работу:',k5);

 cr:=cr/20;

 writeln('Средний , полученный учениками за контрольную работу:',cr);

 if (k5>k4) and (k5>k3) then writeln('пятерок больше всего')  

 else if (k4>k3) then writeln('четверок больше всего')

 else writeln('троек больше всего')

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота