Переделать программу под оператор read program n_1; const pi= 3.14; bar= r,c,s: real begin r: =5.4; c: = 2pir; s: =pirr; writeln ('c=', c: 6: 4); writeln ('s=', s: 6: 4) end

137

343

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

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

7Tamada7

Информатика

4,6(98 оценок)

Program n_1; var r,c,s: real; begin readln(r); c: = 2*pi*r; s: =pi*r*r; writeln ('c=', c: 6: 4); writeln ('s=', s: 6: 4) end. пример: 5 c=31.4159 s=78.5398

ilyawolk316

Информатика

4,6(76 оценок)

Const a: array[1..15] of string =('1. я часто волнуюсь понапрасну.','2. мне хочется, чтобы мои друзья подбадривали меня.','3. я боюсь выглядеть глупцом.','4. я беспокоюсь за свое будущее.','5. внешний вид других куда лучше, чем мой.','6. как жаль, что многие не понимают меня.','7. чувствую, что я не умею как следует разговаривать с людьми.','8. люди ждут от меня многого.','9. чувствую себя скованным.','10. мне кажется, что со мной должна случиться какая-то неприятность.','11. меня волнует мысль о том, как люди относятся ко мне.','12. я чувствую, что люди говорят про меня за моей спиной.','13. я чувствую себя в безопасности.','14. мне не с кем поделиться своими мыслями.','15. люди не особенно интересуются моими достижениями.'); b: array[0..5] of string=('отвечая на вопросы, указывайте, как часты для вас перечисленные ниже состояния по такой шкале: ',' часто – 4 ; ','часто – 3 ; ','иногда – 2 ; ','редко – 1 ; ','никогда – 0 .'); var i,n,s: integer; begin for i : = 0 to 5 do writeln(b[i]); writeln; for i : = 1 to 15 do begin writeln(a[i]); read(n); s: = s + n; end; if s < 10 then write ('вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства.',s) else if (s > = 10 ) and (s < = 30 ) then write ('о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности.',s) else write ('вы себя недооцениваете',s); end.

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

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

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

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

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

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

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

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

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

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