Написать программу в паскаль n-целое число < 1000 испльзуя div и mod определить сколько цифр в этом числе вычислить сумму цифр числа определить чётное оно или нет вывести на экран это же число в обратном порядке

197

354

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

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

Артемка0610

Информатика

4,8(5 оценок)

Var a,c,n2,n,sum,col: integer; begin readln(n); n2: =n; a: =0; sum: =0; col: =0; if n< 1000 then begin while(n2> 0) do begin c: =n2 mod 10; n2: =n2 div 10; a: =(c+a)*10; sum: =sum+c; col: =col+1; end; writeln(col); writeln(sum); if (n mod 2 =0) then writeln('чётное') else writeln('нечётное'); writeln(a div 10); end else write(n' больше 1000! '); end.

alexcopes4

Информатика

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

Program pos; var n, a, b, c, s, d: integer; begin write('n = '); readln(n); if n < 1000 then begin a : = n div 100; b : = n mod 100 div 10; c : = n mod 10; write('в числе '); if a = 0 then if b = 0 then begin d : = 1; writeln('1 цифра'); end else begin d : = 2; writeln('2 цифры'); end else begin d : = 3; writeln('3 цифры'); end; s : = a + b + c; writeln('сумма цифр: ', s); if n mod 2 = 0 then writeln('число чётное') else writeln('число нечётное'); if d = 1 then writeln(c) else if d = 2 then writeln(c, b) else writeln(c, b, a); end else writeln('число > 1000! '); end.

дар70

Информатика

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

Program gt; var n,i: integer; p: real; begin readln(n); p: =1; for i: =1 to n do begin p: =p*2; writeln(i,' ',p); end; end.

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

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

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

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

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

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

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

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

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

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