Составьте программу, которая запрашивает пол учеников ('ж'или 'м') и их количество(от 5 до 30) и выдаёт сообщение. протокол: введите пол и количество: ж 13 в классе сейчас тринадцать девочек на паскале

212

342

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

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

gghggggg1

Информатика

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

а я вот так сделал)

написано в pascal.abc.net

var x : integer; sex : char; function numbers(n: integer): string; begin case n of 5: result : = 'пять'; 6: result : = 'шесть'; 7: result : = 'семь'; 8: result : = 'восемь'; 9: result : = 'девять'; 10: result : = 'десять'; 11: result : = 'одиннадцать'; 12: result : = 'двенадцать'; 13: result : = 'тринадцать'; 14: result : = 'четырнадцать'; 15: result : = 'пятнадцать'; 16: result : = 'шестнадцать'; 17: result : = 'семнадцать'; 18: result : = 'восемнадцать'; 19: result : = 'девятнадцать'; 20: result : = 'двадцать'; 21: result : = 'двадцать один'; 22: result : = 'двадцать два'; 23: result : = 'двадцать три'; 24: result : = 'двадцать четыре'; 25: result : = 'двадцать пять'; 26: result : = 'двадцать шесть'; 27: result : = 'двадцать семь'; 28: result : = 'двадцать восемь'; 29: result : = 'двадцать девять'; 30: result : = 'тридцать'; 31: result : = 'тридцать один'; 32: result : = 'тридцать два'; 33: result : = 'тридцать три'; 34: result : = 'тридцать четыре'; 35: result : = 'тридцать пять'; end; end; begin writeln ('введите пол и количество: '); readln (sex,x); write('в классе сейчас ', numbers(x)); if sex = 'м' then write(' мальчиков') else if sex = 'ж' then write(' девочек'); end.

zhezhuzina2006

Информатика

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

ох и намудрил с этой программой))

program school; var a: char; b: real; c,d: boolean; beginwriteln ('введите пол (м или ж) и количество учеников');

repeat write ('пол - '); readln (a); if upcase(a)='ж' then c: =true; if upcase(a)='м' then c: =true; if c=true then write elsewriteln ('вы должны ввести использовать символы "м" или "ж"'); until c=true;

repeat write ('количество учеников данного пола от 5 до 30 - '); readln (b); if b< 5 then d: =false else d: =true; if b> 30 then d: =false else d: =true; if d=true thenbeginif upcase(a)='ж' then writeln ('в классе сейчас ',b,' девоч.'); if upcase(a)='м' then writeln ('в классе сейчас ',b,' мальч.'); end; until d=true; end.

Shkolnik98rus

Информатика

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

uses crt; var s: string; beginwriteln('напишите слово'); readln(s); writeln('ма',s); writeln(s[1],s[2],s[3],s[4]); end.

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

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

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

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

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

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

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

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

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

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