Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
dimon2ru
06.02.2022 14:13 •
Информатика
Как в чертёжнике написать слово барабан?
👇
Увидеть ответ
Открыть все ответы
Ответ:
mobidik77
06.02.2022
Program aaa;
var
s, b, l, c: real;
begin
writeln('введите s, b, l');
readln(s, b, l);
c := b / 100 * s * 2 * l;
writeln('стоимость поездки: ', c)
end.
program aaa;
{Написать программу пересчета веса из фунтов (f) в килограммы (kg)
(1 фунт равен 409,5 г).}
var
f,kg: real;
begin
writeln('введите f');
readln(f);
kg:=f*409.5/1000;
writeln(f,' фунтов = ', kg:8:3,' килограмм')
end.
program aaa;
{Написать программу Конвертер величин:
с клавиатуры вводиться вес информации в байтах (b).
На выходе получаем перевод величины в: биты (bi) , килобайты (kb),
Мегабайты (mb), гигабайты (gb).
1байт = 8 бит
1Кб (килобайт) = 1024 байт
1Мб (мегабайт) = 1024 Кб
1Гб (гигабайт) = 1024 Мб
1Тб (терабайт) = 1024 Гб}
var
b,bi,kb: real; mb,gb,tb: decimal;
begin
writeln('введите b');
readln(b);
bi:=b*8;
kb:=b/1024;
mb:=kb/1024;
gb:=mb/1024;
tb:=gb/1024;
writeln(b,' байт = ', bi,' бит');
writeln(b,' байт = ', kb,' килобайт');
writeln(b,' байт = ', mb,' мегабайт');
writeln(b,' байт = ', gb,' гигабайт');
writeln(b,' байт = ', tb,' терабайт')
end.
//формат вывода (к-во знаков ...) определите сами
4,7
(21 оценок)
Ответ:
ekaterinakorol4
06.02.2022
1)
from random import random
N = 10
a = []
for i in range(N):
b = int(random() * 50)
a.append(b)
print(a)
min = 101
for i in range(N-1):
s = a[i]+a[i+1]
if (s < min) and (s % 2 == 1):
min=s
print(min)
Пример:[41, 35, 16, 7, 29, 9, 16, 28, 10, 6]
23
2)
from random import random
N = 10
a = []
for i in range(N):
b = int(random() * 50)-25
a.append(b)
print(a)
k = 0
for i in range(N-1):
p = a[i]*a[i+1]
s = a[i]+a[i+1]
if (p % 2 != 0) and (s > 0):
k = k+1
print(k)
Пример:[11, 23, 12, -16, 21, 15, -11, -10, 10, 17]
3
4,6
(12 оценок)
Это интересно:
К
Кулинария-и-гостеприимство
05.06.2023
Шаурма – быстрый и вкусный способ насытиться!...
В
Взаимоотношения
03.09.2021
Как встречаться с юристом: советы и рекомендации...
О
Образование-и-коммуникации
04.05.2020
Как начать речь: советы по освоению ораторского мастерства...
О
Образование-и-коммуникации
28.03.2022
Как вычислить простой процент...
З
Здоровье
27.08.2022
Естественные способы лечения нарколепсии...
С
Стиль-и-уход-за-собой
11.01.2023
10 способов развить чувство стиля: от выбора базовых вещей до экспериментов со стилем...
К
Компьютеры-и-электроника
22.02.2021
Как создать аккаунт в Gmail: шаг за шагом...
М
Мир-работы
19.08.2020
Как получить работу в строительной сфере: советы и рекомендации...
К
Кулинария-и-гостеприимство
18.11.2022
Легкий и вкусный способ приготовления слоеной основы для пирога...
В
Взаимоотношения
01.11.2021
Как страстно целовать: советы и рекомендации для пар...
Новые ответы от MOGZ: Информатика
Dimastem
08.04.2020
Выполнить сравнительную оценку производительности программы сортировки, которая звучит следующим образом - Дан массив из 15 случайных однобайтных чисел в интервале [0;250]. Необходимо...
farid32222245
08.07.2021
Что такое обратная связь? это по информатике...
Nastyaaaaaa34
12.09.2020
Я СЕЙЧАС ПОДОХНУ ИЗ ЗА ЭТОЙ ГРЕБАНОЙ ИНФОРМАТИКИ...
Araslanv0va
16.03.2020
Объявить целочисленный массив. ввести значения элементов массива с клавиатуры. заменить неотрицательные элементы массива их кубом, другие удвоить. вывести полученный массив на...
LindSayWoW
16.03.2020
Вычислете выражение e^x-2+модуль sin (x)модуль закрывается -x^10×cos1/x при x=3.6. вычислите в python...
daurova2007
16.03.2020
Найти произведение 5*6**13 в pyton...
pomoch21213
16.03.2020
Вpython дано число. если оно от 2 до 5 включительно, то увеличить его на 10. если оно от 7 до 40, то уменьшить на 100. если оно не более 0 или более 3000, то увеличить в 3 раза...
Adventurous
16.03.2020
На шахматной доске с координатами x1 и y1 находится фигура конь: запишите условие (логическое выражение), которая определяет, сможет конь за один ход переместиться в клетку с...
kirillkosyarev
23.07.2020
Пользователь вводит 12 чисел. Найти наименьшее число среди элементов с третьего по десятый включительно. На языке паскаль...
Mashka063
12.02.2022
Какие значения будет принимать переменная х после выполнения каждого из следующих операторов? Подразумевается, что, а = 18, b = -15, p = true. a) if a b then x:=1 else x:=4; b)...
MOGZ ответил
Найдите корень уравнения: 12*(1 3/4х+5/8)=-61/2...
Озаглавьте текст заглавие запишите какие по цели высказывания предложения составляют...
Подчеркните главные члены предложения .выпишите словосочетания. подснежники...
Убанку можна налти 12 склянок молока скільки слянок молока можна долити в кожну...
Найдите область оприделения выражения и) t³+12 / 10 - 5t к) a ²/ 9a -3 з) р²-...
Вцистерне было 38 тонн керосина . в первый день израсходовали в 2,4 раза больше...
Как обьяснить орфограму в слове сотрудник?...
Найти наибольший общий делитель 425 и 625 532и 665 36,72 и 198...
Мы едим в астану. это . наш поезд проехал большой мост через . вот и перон...
Вгородской библиотеке 125080 книг,что на 120079 книг больше,чем в сельской....
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
var
s, b, l, c: real;
begin
writeln('введите s, b, l');
readln(s, b, l);
c := b / 100 * s * 2 * l;
writeln('стоимость поездки: ', c)
end.
program aaa;
{Написать программу пересчета веса из фунтов (f) в килограммы (kg)
(1 фунт равен 409,5 г).}
var
f,kg: real;
begin
writeln('введите f');
readln(f);
kg:=f*409.5/1000;
writeln(f,' фунтов = ', kg:8:3,' килограмм')
end.
program aaa;
{Написать программу Конвертер величин:
с клавиатуры вводиться вес информации в байтах (b).
На выходе получаем перевод величины в: биты (bi) , килобайты (kb),
Мегабайты (mb), гигабайты (gb).
1байт = 8 бит
1Кб (килобайт) = 1024 байт
1Мб (мегабайт) = 1024 Кб
1Гб (гигабайт) = 1024 Мб
1Тб (терабайт) = 1024 Гб}
var
b,bi,kb: real; mb,gb,tb: decimal;
begin
writeln('введите b');
readln(b);
bi:=b*8;
kb:=b/1024;
mb:=kb/1024;
gb:=mb/1024;
tb:=gb/1024;
writeln(b,' байт = ', bi,' бит');
writeln(b,' байт = ', kb,' килобайт');
writeln(b,' байт = ', mb,' мегабайт');
writeln(b,' байт = ', gb,' гигабайт');
writeln(b,' байт = ', tb,' терабайт')
end.
//формат вывода (к-во знаков ...) определите сами