Составьте программу в pascal abc которая определяет является ли число 10 двузначным.

216

377

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

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

VILI7575

Информатика

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

program z1; var a: integer; begin read(a); if (a> 9) and (a< 100) then writeln(a, '-двузначное число')else writeln(a, '-не является двузначным числом'); end.

irhev73fa

Информатика

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

program dafnochka; uses crt; type typed=set of 0..10; var dr,d1,d2,d3: typed; c: integer; begin d1: =[2,4,6,8]; d2: =[0,1,2,3,5]; d3: =[1,3,5,7,9]; {вывод множеств} writeln('множество d1: '); for c: =0 to 10 do if c in d1 then write (' ',c,' '); writeln(); writeln(); writeln('множество d2: '); for c: =0 to 10 do if c in d2 then write (' ',c,' '); writeln(); writeln(); writeln('множество d3: '); for c: =0 to 10 do if c in d3 then write (' ',c,' '); writeln(); writeln(); {примеры} dr: =d1+d2; writeln('пример 1 - объединение множеств d1 u d2'); for c: =0 to 10 do if c in dr then write (' ',c,' '); writeln(); dr: =d2-d3; writeln(); writeln('пример 2 - разность множеств d2\d3'); for c: =0 to 10 do if c in dr then write (' ',c,' '); writeln(); dr: =d2*d3; writeln(); writeln('пример 3 - пересечение множеств d2 п d3'); for c: =0 to 10 do if c in dr then write (' ',c,' '); writeln(); end.

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

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

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

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

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

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

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

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

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

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