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

60

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

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

ответить

в избранное

89

nigel78

04 марта 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.

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

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

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

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

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

04 марта 2023

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

04 марта 2023

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

04 марта 2023

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

04 марта 2023

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

04 марта 2023

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

04 марта 2023

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

04 марта 2023

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

04 марта 2023

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

04 марта 2023

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

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

ПОПУЛЯРНОЕ

sev3r, 04 марта 2023

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

deskeeper, 04 марта 2023

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

kosstyan, 04 марта 2023

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

inquest, 04 марта 2023

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

feenich, 04 марта 2023

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

trulya, 04 марта 2023

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

ibraim-k, 04 марта 2023

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

anvladimir2004, 04 марта 2023

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

dnuomhtae, 04 марта 2023

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

27400

14821

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

14216

Биология

7369

720

Экономика

18828

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

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

465

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

46271

Русский язык

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

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

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