Напишите программы на паскале для решения следующих выясните принадлежит ли числа a и b промежутку(-1; 1)

293

326

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

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

AlyonaAtlanta

Информатика

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

uses crt; var a,b: real;

begin readln(a,b); if ((a< 1) and ( a > - 1)) then writeln(' tocha a vhodit v diapazon ' ) else writeln('tochka a ne vhodit'); if ((b< 1) and ( b > - 1)) then writeln(' tocha b vhodit v diapazon ' ) else writeln('tochka b ne vhodit');

readln; end.

asti2000

Информатика

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

#include< iostream> using namespace std; int main() { int d = 0, m; cout < < "m = ",cin > > m; if (m> 1) d+=31; if (m> 2) d+=28; if (m> 3) d+=31; if (m> 4) d+=30; if (m> 5) d+=31; if (m> 6) d+=30; if (m> 7) d+=31; if (m> 8) d+=31; if (m> 9) d+=30; if (m> 10) d+=31; if (m> 11) d+=30; d = d % 7; if (d == 0) d = 7; if (m==1||m==3||m==5||m==7||m==8||m==10||m==12) m = 32; else if (m==4||m==6||m==9||m==11) m = 31; else m = 29; for(int i = 1; i < d; i++) cout< < " "; cout< < " "; for(int i = d; i < 8; i++) cout < < i-d+1< < " "; int i = 9-d; while(i < m) { cout < < '\n'; for(int j = 0; j < 7& & i < m; j++) { if (i < 10) cout< < ' '; cout < < i++< < " "; } } return 0; }

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

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

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

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

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

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

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

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

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

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