While17. дано целое число n (> 0). используя операции деления нацело ивзятия остатка от деления, вывести все его цифры, начиная с самой правой(разряда единиц). (pascal abc)

108

260

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

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

azs194karelin

Информатика

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

Var n, x, a: integer; begin write('введите число: ' ); readln(n); while (n > 0 ) do begin a : = n mod 10; x : = x * 10 + a; n : = n div 10; end; writeln('ответ: ', x); end.

skutovakseniya2004

Информатика

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

Program krug; uses graphabc; var r: byte; x,y,rr: integer; begin r: =200; x: =319; y: =239; rr: =30; circle(x,y,r); circle(x,y,r div 2); circle(x,y-150,rr); textout(x,y-150,'9'); circle(x,y+150,rr); textout(x,y+150,'2'); circle(x-60,y+135,rr); textout(x-60,y+135,'8'); circle(x-60,y-135,rr); textout(x-60,y-135,'3'); circle(x-115,y+95,rr); textout(x-115,y+95,'7'); circle(x-115,y-95,rr); textout(x-115,y-95,'4'); circle(x-145,y+35,rr); textout(x-145,y+35,'6'); circle(x-145,y-35,rr); textout(x-145,y-35,'5'); circle(x+60,y-135,rr); textout(x+60,y-135,'1'); circle(x+115,y-95,rr); textout(x+115,y-95,'0'); end.

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

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

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

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

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

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

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

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

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

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