1.записать на языке паскаль выражение: | x² - 20 | / cos y + 5x √y 2.чему равны значения переменных t и r после исполнения фрагмента программы: t : =1 if r > 10then r: =r+1; t: =8; a) (1,56) при r = 17; б) (2б) при r = 9. 3.сколько раз выполнится цикл и что будет на экране после исполнения фрагмента программы. for i: = - 10 to - 9 do begin k: =i; write(k); end. 4.магазин установил скидки покупателям за сумму покупок: от 5 тысяч руб. - 0.5 % от 10 тысяч руб. - 2 %,начиная от 20 тысяч руб. - 5 % сяч з а) составить программу,которая для введенного целого числа ( количества тысяч за покупку) выводит на экран процент скидки. б) составить программу,которая для 10 введенных с клавиатуры чисел (количества тысяч руб. за покупку 10 покупателей) выводит на экран процент скидки до каждого.
228
335
Ответы на вопрос:
1)abs(x*x - 20) / cos(y) + 5*x*sqrt(y) 2) t : =1 if r > 10then r: =r+1; t: =8; a) при r=17 условие выполняется, значит r увеличится на единицу.команды не связаны операторными скобками (begin r: =r+1; t: =8; end),поэтому t: =8; выполнится безусловно.r=18; t=8; б)при r = 9 условие не выполняется, поэтому значение r останется неизменным.r = 9; t = 8; 3) for i: = - 10 to - 9 do begin k: =i; write(k); end.цикл for не выполнится ни разу. на экран не будет выведено ничего.цикл "for i: = a to b do" выполняется b-a+1 раз, при условии, что b> =a.в нём значение i меняется от a до b, с каждой итерацией прибавляется единица.цикл "for i: = a downto b do" выполнится a-b+1 раз, при условии, что a> =bв нём значение i тоже меняется от a до b, но с каждой итерацией от i отнимается единица.4)а)vara: integer; beginwrite('введите сумму покупок: '); readln(a); if a< 5 then write('скидка не предоставляется')else if (a> =5)and(a< 10) then write('скидка: 0.5%') else if (a> =10)and(a< 20) then write('скидка: 2%') else write('скидка: 5%')end.б) var a,i: integer; begin for i: = 1 to 10 do begin write('введите сумму покупок: '); readln(a); if a< 5 then writeln('скидка не предоставляется') else if (a> =5)and(a< 10) then writeln('скидка: 0.5%') else if (a> =10)and(a< 20) then writeln('скидка: 2%') else writeln('скидка: 5%') end end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
lam3r08.08.2020 04:54
-
Hilet11.06.2020 15:38
-
ShEnNnY04.10.2022 03:38
-
Глглолл01.03.2023 20:58
-
Doloeris14.09.2022 14:51
-
AnnaVag891222.11.2021 04:55
-
vladd01070328.06.2021 20:23
-
lukingrishal08.11.2021 14:55
-
Damirok2121.10.2022 18:39
-
homeLoL09.10.2021 15:43
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.