Найти ошибку в программе program task5; var v: string; ch: integer; begin writeln('введите число'); readln (ch); case ch of 1: v: = ('один'); 2: v: = ('два'); 3: v: = ('три'); 4: v: = ('четыре'); 5: v: = ('пять'); 6: v: = ('шесть'); 7: v: = ('семь'); 8: v: = ('восемь'); 9: v: = ('девять'); 10: v: = ('десять'); 11: v: = ('одиннадцать'); 12: v: = ('двенадцать'); 13: v: = ('тринадцать'); 14: v: = ('четырнадцать'); 15: v: = ('пятнадцать'); 16: v: = ('шестнадцать'); 17: v: = ('семнадцать'); 18: v: = ('восемнадцать'); 19: v: = ('девятнадцать'); 20: v: = ('двадцать' ); 21,22,23,24,25,26,27,28,29: p: =(ch mod 10), v: = ('двадцать' ); 30: v: = ('тридцать '); 31,32,33,34,35,36,37,38,39: p: =(ch mod 10), v: = ('тридцать' ); 40: v: = ('сорок'); 41,42,43,44,45,46,47,48,49: p: =(ch mod 10), v: = ('сорок' ); 50: v: = ('пятьдесят '); 51,52,53,54,55,56,57,58,59: p: =(ch mod 10), v: = ('пятьдесят' ); 60: v: = ('шестьдесят '); 61,62,63,64,65,66,67,68,69: p: =(ch mod 10), v: = ('шестьдесят' ); 70: v: = ('семьдесят '); 71,72,73,74,75,76,77,78,79: p: =(ch mod 10), v: = ('семьдесят '); 80: v: = ('восемьдесят '); 81,82,83,84,85,86,87,88,89: p: =(ch mod 10), v: = ('восемьдесят' ); 90: v: = ('девяносто '); 91,92,93,94,95,96,97,98,99: p: =(ch mod 10), v: = ('девяносто ' ); 100: v: =('сто'); end; writeln(v,p); end.

194

225

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

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

Ste5an

Информатика

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

Program task5; var v: string; ch,p: integer; begin writeln('введите число'); readln (ch); case ch of 1: v: = ('один'); 2: v: = ('два'); 3: v: = ('три'); 4: v: = ('четыре'); 5: v: = ('пять'); 6: v: = ('шесть'); 7: v: = ('семь'); 8: v: = ('восемь'); 9: v: = ('девять'); 10: v: = ('десять'); 11: v: = ('одиннадцать'); 12: v: = ('двенадцать'); 13: v: = ('тринадцать'); 14: v: = ('четырнадцать'); 15: v: = ('пятнадцать'); 16: v: = ('шестнадцать'); 17: v: = ('семнадцать'); 18: v: = ('восемнадцать'); 19: v: = ('девятнадцать'); 20: v: = ('двадцать' ); 21,22,23,24,25,26,27,28,29: begin p: =(ch mod 10); v: = ('двадцать' ); end; 30: v: = ('тридцать '); 31,32,33,34,35,36,37,38,39: begin p: =(ch mod 10); v: = ('тридцать' ); end; 40: v: = ('сорок'); 41,42,43,44,45,46,47,48,49: begin p: =(ch mod 10); v: = ('сорок' ); end; 50: v: = ('пятьдесят '); 51,52,53,54,55,56,57,58,59: begin p: =(ch mod 10); v: = ('пятьдесят' ); end; 60: v: = ('шестьдесят '); 61,62,63,64,65,66,67,68,69: begin p: =(ch mod 10); v: = ('шестьдесят' ); end; 70: v: = ('семьдесят '); 71,72,73,74,75,76,77,78,79: begin p: =(ch mod 10); v: = ('семьдесят '); end; 80: v: = ('восемьдесят '); 81,82,83,84,85,86,87,88,89: begin p: =(ch mod 10); v: = ('восемьдесят' ); end; 90: v: = ('девяносто '); 91,92,93,94,95,96,97,98,99: begin p: =(ch mod 10); v: = ('девяносто ' ); end; 100: v: =('сто'); end; writeln(v,p); end. так оно по крайней мере запускается. но нет обработки переменной p, по ней надо делать отдельный case of.

gnkbdh

Информатика

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

1. k: =1; for i: =40 to 160 do if i mod 2 < > 0 then k: =k*i; write(k); end. 2. k: =0; for i: =1500 to 3000 do if i mod 150=0 then k: =k+i; write(k); end. 3.k: =0; for i: =2510 to 7000 do if i mod 17=0 then k: =k+1; write(k); end. начало всех программ будет одинаковое: program abc; var i,k: integer; begin

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

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

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

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

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

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

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

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

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

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