Всем привет! Помогите пожалуйста по информатике

42

Всем привет! Помогите пожалуйста по информатике. Задача: ввести целое число и найти сумму его цифр. Пример: введите целое число: 1234. Сумма цифр числа 1234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да

категория: информатика

ответить

в избранное

44

remdizain

13 августа 2022

1) a,s,i: integer; read (a); s: =0while a>0 dobegins: =s+a mod 10; a: =a div 10; end; write (s); end.2) a,s,i,m (9): integer; read (a); s: =0while a>0 dobeginm (a mod 10): =m (a mod 10)+1a: =a div 10; end; for i=0 to 9 do beginif m (i)=2 thenwrite ('Есть'); end; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

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

Смотрите также:

Нужно решить через Паскаль (7,41 — sqrt (5 (sqrt (7)+sqrt

Составьте программу, которая формирует массив из 12 случайных чисел принадлежащих промежутку -5; 5…

Дана действительная матрица размера 3 х 4. Найти сумму элементов последнего столбца данойматрицы

Помогите с задачей. Я написала решение, но где-то ошибка видимо. Подскажите где именно и ошиблась

Пожалуйста, кому не трудно, переведите числа в двоичный код: 226,231,228,241,243,247,246,242,250,251,248,249,254,255…

Записать на языке Pascal условие, которое является ИСТИННЫМ…

Дан массив mxm. Найти сумму элементов тех столбцов, у которых диагональный элемент равеннулю

Дан массив из N чисел. N — четное. Написать программу, меняющую местами элементы с четными и нечетныминомерами

Сотсавьте программу которая заполнит массив a[1…

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...