Винтернете смысла искать нет,т.к. через другие языки программирования написаны,а нужно паскаль. 1.запишите любое число от 1 до 1000, введенное пользователем, буквами. например, 2 – два, 150 – сто пятьдесят. 2.в старояпонском календаре был принят 60-летний цикл, состоявший из пяти 12-летних подциклов. подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. внутри каждого подцикла годы носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. 1984 – год зеленой крысы – был началом очередного цикла. напишите программу, которая вводит номер некоторого года нашей эры и печатает его название по старояпонскому календарю. 3. составьте программу, которая по введенному вами числу n (от 1 до 100) напечатает все натуральные числа x буквами (двадцать, сорок пять и т. например, для числа 4 программа должная напечатать «один», так как в слове «один» четыре буквы. для числа 9 программа должная напечатать «сорок пять», так как в записи числа «сорок пять» девять букв.

208

259

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

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

Irusik55

Информатика

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

1: //pascalabc.net var s1,s2,s3: string; m,i,i2: integer; function _case(s: string): integer; begin if s='тысяча' then _case: =1000; if s='девятьсот' then _case: =900; if s='восемьсот' then _case: =800; if s='семьсот' then _case: =700; if s='шестьсот' then _case: =600; if s='пятьсот' then _case: =500; if s='четыреста' then _case: =400; if s='триста' then _case: =300; if s='двести' then _case: =200; if s='сто' then _case: =100; if s='девяносто' then _case: =90; if s='восемьдесят' then _case: =80; if s='семьдесят' then _case: =70; if s='шестьдесят' then _case: =60; if s='пятьдесят' then _case: =50; if s='сорок' then _case: =40; if s='тридцать' then _case: =30; if s='двадцать' then _case: =20; if s='девятнадцать' then _case: =19; if s='восемнадцать' then _case: =18; if s='семнадцать' then _case: =17; if s='шестнадцать' then _case: =16; if s='пятнадцать' then _case: =15; if s='четырнадцать' then _case: =14; if s='тринадцать' then _case: =13; if s='двенадцать' then _case: =12; if s='одиннадцать' then _case: =11; if s='десять' then _case: =10; if s='девять' then _case: =9; if s='восемь' then _case: =8; if s='семь' then _case: =7; if s='шесть' then _case: =6; if s='пять' then _case: =5; if s='четыре' then _case: =4; if s='три' then _case: =3; if s='два' then _case: =2; if s='один' then _case: =1; end; begin readln(s1); i: =pos(' ',s1); i2: =pos(' ',s1,i+1); if i> 0 then if i2> 0 then begin s2: =copy(s1,i+1,i2-i-1); s3: =copy(s1,i2+1,length(s1)-i2); end else begin s2: =copy(s1,i+1,length(s1)-i); s3: =''; end; delete(s1,i,length(s1)); writeln(_case(s1)+_case(s2)+_case(s3)); end.

Картоон

Информатика

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

ответ:В ответе -10 будет.

Т.к. в алгоритме новое значение присвоится Y, а не R.

Объяснение:

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

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

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

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

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

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

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

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

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

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