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

Тапсырмалар. 1. Компьютерлік интерфейсті дайындауда қандай жаңа ерекшеліктер бар?
2. Процедуралық бағдарланған интерфейсте қандай үш тип бар?
3. Пайдаланушы интерфейсін бағалаудың негізгі көрсеткіштерін атаңдар.
4. Үстел үсті компьютерінің интерфейсі наутбуктен қандай белгілері
арқылы ерекшеленеді?​

👇
Открыть все ответы
Ответ:
MonSlon
MonSlon
23.08.2022

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 делать не стоит, сайт нарушает табуляции в коде.

4,7(31 оценок)
Ответ:
daha505daha505
daha505daha505
23.08.2022

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.

4,5(83 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ