ответьте пещере, где очень темно и ничего не видно, лежат и золотые монеты. Иван знал, что в пещере лежат 12 золотых и 14 серебряных монет. Какое минимальное количество ему надо взять, чтобы среди них оказались: * 13 монет 14 монет 15 монет 16 монет 12 монет хотя
241
364
Ответы на вопрос:
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. //формат вывода (к-во знаков определите сами
Популярно: Информатика
-
flopeNIX25.07.2020 13:23
-
SofaCat123107.05.2020 11:36
-
котеенок123326.10.2020 06:36
-
canimzoo06.10.2020 21:30
-
plagods04.07.2021 23:19
-
vladys4u13.08.2022 23:52
-
мажорчик210.03.2021 12:38
-
artyomburyanov31.05.2023 10:08
-
Alisascol22.11.2020 15:28
-
DENZYSUPER03.04.2021 12:11