Программа в паскале! ! в митиной библиотеке n книг по программированию, сборников фантастики - в 4 раза больше, чем книг по программированию, а сказок – на 12 меньше, чем сборников фантастики. сколько всего книг в митиной библиотеке?

210

419

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

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

Ванёк20061

Информатика

4,7(59 оценок)

Uses crt; var n,f,p,s: integer; begin textbackground(15); textcolor(1); clrscr; writeln('введите сколько книг по програмированию '); readln(p); f: =p*4; s: =f-12; n: =f+s+p; writeln('всего ',n,' книг'); end.

Astento

Информатика

4,8(1 оценок)

1вариант var a,b,c,max,min, sum: real; {описание переменных, они все действительного типа} begin readln(a,b,c); {ввод с клав. чисел a,b,c} if (3*a)< (a+b) and (3*a)< (7*c) then {если первое выражение меньше второго и третьего, то} min: =3*a {переменной min присвоить значение первого выражения} else if (a+b)< (7*c) then {иначе, если 2-ое выражение < 3-го,то} min: =a+b {переменной min присвоить значение второго выражения} else min: =7*c; {иначе значение третьего выражения} if a> c then max: =a+b {если a> c (сравниваем только эти числа, так как число b входит в оба выражения), то переменной max присвоить значение первого выражения} else max: =b+c; {иначе второго} sum: =min+max; {находим сумму min и max} writeln(sum: 1: 2); {выписываем на экране ответ} readln; end. 2 вариант (все тоже самое, просто нахождение минимума и максимума производится в процедуре) процедура описывается всегда до основной программы, в ней используются абстрактные переменные, в данном случае x,y,z,u (локальные переменные), вместо которых при вызове процедуры в основной программе будут даваться конкретные значения введенных ранее переменных. var a,b,c,max, min, sum: real; procedure mn(x,y,z: real; var u: real); begin if (x< y) and (x< z) then u: =x else if (y< z) then u: =y else u: =z; end; procedure mx(x,y: real; var u: real); begin if (x> y) then u: =x else u: =y; end; begin readln(a,b,c); mn(3*a,a+b,7*c,min); mx(a+b,b+c,max); sum: =min+max; writeln(sum: 1: 2); readln; end.

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

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

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

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

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

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

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

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

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

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