Составить программу на паскале,которая имитирует падение брошенного с башни яблока( )
204
497
Ответы на вопрос:
//pascalabc.net 3.2 сборка 1318 uses graphabc; var h: integer; begin h: =40; line(window.width-300,window.height,window.width-300,0); floodfill(window.width-20,20,clgray); rectangle(window.width-200,100,window.width-100,300); floodfill(window.width-150,140,clgold); while h< > window.height-40 do begin circle(window.width div 2,h-40,10); floodfill(window.width div 2,h-40,clgreen); circle(window.width div 2,h,30); floodfill(window.width div 2,h,clred); rectangle(0,0,window.width div 2+40,window.height); floodfill(window.width div 2+40,window.height,clwhite); inc(h); end; circle(window.width div 2,h-40,10); floodfill(window.width div 2,h-40,clgreen); circle(window.width div 2,h,30); floodfill(window.width div 2,h,clred); end.
переводим цену пирожка в копейки (по формуле 100a + b), умножаем на n и получаем цену n пирожков в копейках. делим с остатком на 100 и получаем в целой части число рублей, в остатке – число копеек.
pascal:
program pies;
var a, b, n, total: integer;
begin
writeln('введите значения a, b, n: ');
read(a, b, n);
total : = n * (100 * a + b);
writeln('цена пирожков: ', n div 100, ' руб. ', n mod 100, ' коп.')
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
WiTeKHasky24.05.2022 03:12
-
mogilko8822.01.2023 17:46
-
Uglyhikka13.03.2022 14:20
-
Dream115520.10.2020 07:20
-
MrKoopo13.05.2020 16:04
-
Чекушка22025.11.2021 23:25
-
aslanovvadim01.01.2022 17:36
-
Alexandr20175513.02.2022 18:34
-
den1112pro02.09.2020 13:51
-
disapitr23.06.2020 09:52
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.