Var
l: integer;
begin
writeln('Введите длину ребра куба');
readln(l);
writeln('Объём куба равен ', l*l*l);
writeln('площадь поверхности куба равна ',l*l*6);
readln;
end.

0 0

4 года назад

Всем привет! Как составить алгоритм "Угадай число" в программе "Кумир"?

Drahlanarea

алг
нач
цел k, l
k := int(rand(5, 80));
вывод "Угадайте число", нс | k
ввод l
если k = l то
вывод "Вы совершенно правы, сударь"
иначе
вывод ":Р"
все
кон

0 0

4 года назад

Из 9 монет одинакового достоинства одна фальшивая(более лёгкая).За сколько взвешиваний на чашечных весах без гирь вы можете её о

Гульнара Самигулина [81]

За 2. Взвешиваем по три монеты, если одна легче, то фальшивая среди этих трех, если равновесие, то фальшивая среди трех невзвешененных, потом по одной из тройки где фальшивая, и рассуждаем так же, если одна из монет легче, то она фальшивая, а если равновесие, то фальшивая невзвешенная. Точно также из 27 монет можно определить фальшивую за 3 взвешивания, из 81 за 4, из 3 в степени N монет - за N взвешиваний. А если число монет не равно 3 в степени N, то число взвешиваний равно ближайшей большей степени тройки. То есть, например, если монет 74 - то одну монету тоже можно определить за 4 взвешивания, как и среди 81 монеты. А вот если монет 82, то уже только за 5 взвешиваний - ближайшая большая степень двойки - 243 - 2 в степени 5.

0 0

4 года назад