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

Спо информатике в программе htmlесли можно, то с картинкой, заранее ​

Показать ответ
Ответ:
sonyacherepanova
sonyacherepanova
15.03.2021 18:36

N = int(input())


Speed_limit_car_count = 0


all_speed = 0


car_speed = []


i = 0


total = None


YN = None



def list_check(car_speed):


for i in range(len(car_speed)):


 if car_speed[i] in range(1, 300):


  normal = True


  continue


 else:


  normal = False


  break


return normal



if N not in range(1, 31):


print('Wrong input')


else:


while i < N:


 car_speed.append(float(input()))


 i += 1


normal = list_check(car_speed)


if normal:


 for i in range(len(car_speed)):


 

  if car_speed[i] <= 30:


   Speed_limit_car_count += 1



 for i in range(len(car_speed)):


  round(car_speed[i])


  all_speed += car_speed[i]



 total = all_speed/N



 if Speed_limit_car_count >= 2:


  YN = 'YES'


 else:


  YN = 'NO'


else:


 print('ERROR IN SPEEDLIST. CHEK INPUT!')



print(total, YN)



Программа протестирована. ctrl+c делать не стоит, сайт нарушает табуляции в коде.

0,0(0 оценок)
Ответ:
AnnyMay2629
AnnyMay2629
15.03.2021 18:36

var

   a: integer;

begin

   {1}

   readln(a);

   if a > 0 then a := a + 1;

   writeln(a);

   

   {2}

   readln(a);

   if a < 0 then a := a * 2;

   writeln(a);

   

   {3}

   readln(a);

   if a <> 0 then a := a - 4;

   writeln(a);

   

   {4}

   readln(a);

   if a > 0 then a := a + 1

   else a := a - 1;

   writeln(a);

   

   {5}

   readln(a);

   if a = 0 then a := a + 3

   else a := 0;

   writeln(a);

end.

{6}

var

   x, y: real;

begin

   readln(x, y);

   if x > y then x := x * y

   else x := x + y;

   writeln(x);

end.

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