40 ! в паскале ввести с клавиатуры цену товара без скидки. ввести скидку число от 0 до 100. посчитать стоимость товара с учётом скидки заранее большое !

256

499

Посмотреть ответы 2

Ответы на вопрос:

Плювиофил

Информатика

4,4(9 оценок)

Var price,discnt: real; begin read(price); readln(discnt); writeln(price * (1 - discnt/100)); end. пример: 100 12.5 87.5

лиана247

Информатика

4,5(57 оценок)

Перебираешь все взаимно простые m > n разной четности, так чтобы m*m было меньше 30. и формируешь тройки по формуле: k*(m*m-n*n, 2*m*n, m*m + n*n) например так: function gcd(a,b: integer): integer; begin if b = 0 then gcd : = a else if (a > b) and (b > 0) then gcd : = gcd(b, a mod b) else gcd : = gcd(b, a); end; procedure print(m,n: integer); var i, a, b, c: integer; begin repeat i : = i + 1; a : = (m*m-n*n)*i; b : = 2*m*n*i; c : = (m*m+n*n)*i; if c < 30 then writeln(a, ' ', b, ' ', c) else break; until false; end; var m, n, s: integer; begin s : = trunc(sqrt(30)); for m : = 1 to s do for n : = m + 1 to s do if (gcd(n, m) = 1) and ((m mod 2)< > (n mod 2)) then print(n, m) end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.