Есть ответ 👍

Составить программу в pascal abc ! дано натуральное число 1)программа, которая находит сумму цифр этого числа 2)которая определяет, что число начинается и заканчивается одной и той же цифрой

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

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

Fulin666
4,4(77 оценок)

12 3 4 5 6 7 8 9 10 11 12 13 14 var i, sum, n, code: integer;   s: string; begin write('введите натуральноее число: '); read(s); for i : = 1 to length(s) do begin val(s, n, code); sum : = sum + n; end; writeln('сумма цифр: ', sum); str(sum, s); if s[1] = s[length(s)] then write('число начинается и заканчивается одной цифрой ',

Var a,b,n,sum: longint; begin read (n);   b: = n mod 10; while n> 0 do   begin   if n div 10 = 0 then     a: = n mod 10;     sum: = sum + (n mod 10);   n: = n div 10;   end;   writeln (sum); if a = b then   write ('first digit = last digit') else   write ('first digit < > last digit'); end.

ответ: думаю такОбъяснение: using System.Text;

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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS