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

1) Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5 или 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5 или 7. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 5. 2) Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическскорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить: 1) разность максимальной и минимальной скоростей автомобилей; 2) количество автомобилей, скорость которых не превышала 30 км/ч. Программа получает на вход число проехавших автомобилей N (1 ≤ N ≤ 30), затемуказываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программа должна сначала вывести разность максимальной и минимальной скоростей автомобилей, затем количество автомобилей, скорость которых не превышала 30 км/ч.
Написать код программ и решение

Показать ответ
Ответ:
Maksim24k
Maksim24k
01.05.2020 06:01
Вот:

program pole;
var a, b, c, d, n, kolvo, x, y: real;
begin
write ('За сколько часов топчет землю Нейромонах Феофан? ');
read (a);
write ('За сколько часов топчет землю Балалаечник Никодим? ');
read (b);
write ('За сколько часов топчет землю Косолапый Мишка? ');
read (c);
write ('За сколько часов топчет землю 1 Добрый Молодец? ');
read (d);
write ('За сколько часов нужно выкопать землю? ');
read (n);
x:=1/a+1/b+1/c;
kolvo:=(1/n-x)/(1/d);
if (kolvo<0) then write ('Группа справится без молодцев.') else
begin
y:=kolvo;
if (((trunc(y*10)) mod 10) <5) then
kolvo:=kolvo + 1;
write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo));
end;
end.
0,0(0 оценок)
Ответ:
narek2006
narek2006
22.04.2020 15:01

python

Говори если я что-то не правильно понял или если что-то не понятно

1)

from math import sqrt

a = int(input('Первая сторона: '))

b = int(input('Вторая сторона: '))

print(f'Площадь: {a*b}\nПериметр: {(a+b)*2}\nДиагональ: {sqrt(a**2+b**2)}')

2)

a = int(input('Первая сторона: '))

b = int(input('Вторая сторона: '))

c = int(input('Третья сторона: '))

[print('Равнобедренный') if a == b or a == c or b == c else print('Не равнобедренный')]

3)

from math import cos

try:

 b = int(input('b: '))

 c = int(input('c: '))

 print((b + cos(c)) / (b - c))

except ZeroDivisionError:

 print('Данный пример не имеет решения потому-что происходит деление на ноль')

4)

x = int(input('x: '))

if x > 9:

 print(36)

elif -4 <= x <= 9:

 print(2 * x)

else:

 print(x**2 + 1)

5)

score = int(input('Оценка: '))

if 1 <= score <= 3:

 print('Низкий уровень')

elif 4 <= score <= 6:

 print('Средний уровень')

elif 7 <= score <= 9:

 print('Достаточный уровень')

elif 10 <= score <= 12:

 print('Высокий уровень')

6)

n = input('Число: ')

n2 = list(n)

n2[0], n2[3] = n2[3], n2[0]

[print('Первое число больше чем второе') if int(n) > int(''.join(n2)) else print('Первое число не больше чем второе')]

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