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

Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 30 км\ч, выведите YES, иначе выведите NO. Программа получает на вход число проехавших автомобилей N (1=
Программа должна сначала вывести максимальную скорость, затем YES или NO.

Написать нужно на Python.

👇
Ответ:
Elizabetsimmer
Elizabetsimmer
13.10.2022

L = "NO"

max_v = 0

N = int(input())

for i in range(N):

   x = float(input())

   if int(x) < 30:

       L = "YES"

   if int(x) > max_v:

       max_v = int(x)

print("Максимальная скорость:",max_v)

print(L)

4,4(52 оценок)
Открыть все ответы
Ответ:
Aki1Nozomi
Aki1Nozomi
13.10.2022

Интернет в мире является самым значительным и волнующим событием в компьютерном мире после распространения персональных компьютеров в начале 1980 года.

На сегодняшний день глобальные компьютерные сети являютсяогромным мобильным хранилищем и средством оперативного обмена самой разнообразной информацией. Объединение глобальных сетей Интернет – это уникальный период, когда практически вся накопленная человечеством информация стала доступна на электронных носителях, а мощные компьютеры, объединенные в глобальные сети, могли оперативно предоставить эту информацию пользователю в любой уголок планеты.

4,5(98 оценок)
Ответ:
arturkill12309
arturkill12309
13.10.2022

1)      а:=b(13)+a(-2)*3=13+(-2*3)=13-6=7

2)      a) readln(а); readln(х);

б) writeln(z)

в)    var b,c : real; (чаще всего используется при нахождении вещественных чисел)

        var a: integer; (чаще всего используется при нахождении вещественных чисел)

г) if d = a(число, которому нужно прировнять, этот фрагмент цикла(если…,то ..иначе)) then d:=d+20; д) z := x + y; ( : = это знак присвоения)
3) 

PROGRAM PR1;

var w,s,b: integer;

BEGIN

READLN (S, B);

w:= ((12*s) + (26*b));

WRITELN (W);

end.
4) Запишите на языке Паскаль следующие условия:
а) f >105 ;
б)  a<184  ;
в)  w<>181;  
г)  z>0;
д) z<=d;
е) (y*x)>=(d+w);
ж)  (w-d)<88;
з) f>=1;
5. Запишите на языке Паскаль команду ветвления для решения следующей задачи:

а) if  a<> 21 then a:=a+28 else a:=a-51;
б) if  a mod  2=0 then a:=a+5 else a:=a-12;

6. Запишите на языке Паскаль команду цикла для решения следующей задачи:
а)  PROGRAM PR1;
var j,p: integer;
BEGIN j:=1; p:=0;
While j>=66 do BEGIN p:= p*j; j:=j+1:
WRITELN (‘произведение чисел = ‘, p);
end.
б)  

PROGRAM PR1;

var n:integer;

begin

for n:=1 to 7 do

writeln('trud');

end.

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