Найдите количество двузначных чисел…

60

Найдите количество двузначных чисел, которые делятся на сумму своих цифр

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

ответить

в избранное

89

nigel78

19 апреля 2023

program xxx; var i, k, d, e, s: integer; begin k: =0; for i: =10 to 99 do begin d: =i div 10; e: =i mod 10; s: =d+e; if i mod s=0 then k: =k+1 end; write ('кол-во чисел которые делятся на сумму своих цифр=', k); readlnend.

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

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

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

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

Другие вопросы по информатике

19 апреля 2023

Составьте программу, которая формирует массив из шестнадцати целых чисел от -20 до 20 и находит в этом массиве индексы элементов, значения которыхкратным трем.

19 апреля 2023

РЕШИТЕ ПОЖАЛУЙСТА! Посудина цилиндрической формы заполнена до краев водой, d=1200 кг/м 3. Составить программу котораявычисляет:

19 апреля 2023

Напишите два извесных факта относящиеся к историческим событиям

19 апреля 2023

Если досье на преступников 45 мегабайт и каждое из них имеет объем 12 страниц (48 строк по 64 символа в каждом,1 символ занимает 8 бит) , то число досьеравно: варианты ответов: 1280,3840,1250,1560,1024. Нужно решение

19 апреля 2023

Круг радиусом 3 клетки. Перениси его на 9 клеточек вниз, потом на 7 клеточек вправо, а потом на 5 клеточек вверх. Какимодним одним преобразованием можнозаменить все эти преобразования?

19 апреля 2023

Ребята помогите! Задача по Pascal ABC! Дано число, верно ли, что сумма цифр этого числа больше произведения обратных чисел (Для всякого числа а, неравного нулю, существует обратное 1/a)!

19 апреля 2023

Сосуды цилиндрической формы заполнены до краев жидкостью плотностью d=1200 кг\м³. Составьте программу, которая вычисляет давление столба жидкостина дно сосудов p=dgh (g=9,8 м\с²)

19 апреля 2023

Составит блок-схему алгоритма, определяющего сумму всех цифр всх двузначных натуральных чисел от заданного М до заданногоК

19 апреля 2023

Помогите, пожалуйста, решить задачу на языке программирования в Turbo Pascal: 1. Дан массив целых чисел, состоящий из 10 элементов. Заполнить его склавиатуры. Найти: — Удвоенную сумму положительных элементов; — вывести индексы тех элементов, значения которых больше значения предыдущего элемента (начиная со второго).

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

ПОПУЛЯРНОЕ

sev3r, 19 апреля 2023

Составьте программу, которая формирует массив из шестнадцати целых чисел от -20 до 20 и находит в этом массиве индексы…

deskeeper, 19 апреля 2023

РЕШИТЕ ПОЖАЛУЙСТА! Посудина цилиндрической формы заполнена до краев водой, d=1200 кг/м…

kosstyan, 19 апреля 2023

Напишите два извесных факта относящиеся к историческим событиям

inquest, 19 апреля 2023

Если досье на преступников 45 мегабайт и каждое из них имеет объем 12 страниц

feenich, 19 апреля 2023

Круг радиусом 3 клетки. Перениси его на 9 клеточек вниз, потом на 7 клеточек вправо, а потом на 5 клеточек вверх

trulya, 19 апреля 2023

Ребята помогите! Задача по Pascal ABC!

ibraim-k, 19 апреля 2023

Сосуды цилиндрической формы заполнены до краев жидкостью плотностью d=1200 кг\м³

anvladimir2004, 19 апреля 2023

Составит блок-схему алгоритма…

dnuomhtae, 19 апреля 2023

Помогите, пожалуйста, решить задачу на языке программирования в Turbo Pascal:…

27400

14821

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

14216

Биология

7369

720

Экономика

18828

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

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

465

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

46271

Русский язык

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

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

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