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

60

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

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

ответить

в избранное

89

nigel78

26 августа 2022

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.

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

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

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

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

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

26 августа 2022

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

26 августа 2022

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

26 августа 2022

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

26 августа 2022

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

26 августа 2022

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

26 августа 2022

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

26 августа 2022

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

26 августа 2022

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

26 августа 2022

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

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

ПОПУЛЯРНОЕ

sev3r, 26 августа 2022

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

deskeeper, 26 августа 2022

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

kosstyan, 26 августа 2022

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

inquest, 26 августа 2022

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

feenich, 26 августа 2022

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

trulya, 26 августа 2022

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

ibraim-k, 26 августа 2022

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

anvladimir2004, 26 августа 2022

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

dnuomhtae, 26 августа 2022

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

27400

14821

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

14216

Биология

7369

720

Экономика

18828

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

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

465

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

46271

Русский язык

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

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

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