Написать программу на языке бейзик нахождения всех трехзначных чисел, у которых все цифры различны, а также которые кратны семи не только сами, но и сумма цифр этих чисел?

Ale8843546 14 янв. 2020 г., 03:52:35

CLS

n = 0

FOR i = 1 TO 9 FOR j = 0 TO 9 FOR k = 0 TO 9 c1 = i < ; > ; j AND i < ; > ; k AND j < ; > ; k IF c1 THEN c1 = (i + j + k) MOD 7 = 0 IF c1 THEN c1 = (100 * i + 10 * j + k) MOD 7 = 0 IF c1 THEN PRINT i ; j ; k n = n + 1 END IF NEXT k NEXT j

NEXT i

IF n = 0 THEN PRINT "Нет решения"

Тестовое решение :

3 2 9

3 9 2

5 1 8

5 8 1.

Poni111 24 янв. 2020 г., 16:47:06 | 10 - 11 классы

Для каждого задания написать программу на языке ПАСКАЛЬ 1?

Для каждого задания написать программу на языке ПАСКАЛЬ 1.

Среди двухзначных чисел найти количество четных чисел.

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

3. среди двухзначных чисел найти те числа, которые кратные 3 и 4.

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

Trukhan2002 5 сент. 2020 г., 09:16:11 | 5 - 9 классы

Программа для нахождении суммы всех чисел кратных 3 но не кратных 5?

Программа для нахождении суммы всех чисел кратных 3 но не кратных 5.

Kafe2 10 окт. 2020 г., 15:40:10 | 5 - 9 классы

Решите 2 программы?

Решите 2 программы.

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

2) Составьте программу вычисления количества трехзначных чисел, у которых сумма цифр является чётным числом.

ОЧЕНЬ СРОЧНО!

Tofkovamasha 26 мар. 2020 г., 23:18:30 | 5 - 9 классы

Напишите программу поиска всех трёхзначных чисел, сумма цифр которых и само число кратны 7 Paskal?

Напишите программу поиска всех трёхзначных чисел, сумма цифр которых и само число кратны 7 Paskal.

СаяраАхмедова16 20 мар. 2020 г., 03:08:41 | 5 - 9 классы

Помогите решить пожалуйста даю 20 баллов?

Помогите решить пожалуйста даю 20 баллов!

Дано целое число N (0< ; = N< ; = 9).

Написать программу, вычисляющую сумму всех двузначных чисел(в записи которых нет цифры N) Даны целые числа A и B.

Написать программу, подсчитывающую сумму двузначных чисел, у которых либо первая цифра равна A, либо вторая цифра равна B.

Написать программу, определяющую количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N Все через While.

11luybov22 17 янв. 2020 г., 17:04:21 | 5 - 9 классы

Помогите?

Помогите!

Написать программу, которая определяет кратна ли числу А сумма цифр двухзначного числа.

Persianovandrey 15 окт. 2020 г., 07:39:07 | 5 - 9 классы

Задано трехзначное число, написать программу на языке Паскаль, которая находит сумму его цифр и проверить четное оно или нет?

Задано трехзначное число, написать программу на языке Паскаль, которая находит сумму его цифр и проверить четное оно или нет.

Sayyou13 6 нояб. 2020 г., 10:54:17 | 10 - 11 классы

Сколько существует десятичных трехзначных чисел, сумма цифр которых в 13 раз меньше самого числа?

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

В ответе укажите сумму всех таких чисел.

RIKA555 9 июн. 2020 г., 10:08:41 | 5 - 9 классы

Составить программу для нахождения количества таких трехзначных чисел Фибоначчи, которые делятся на сумму своих цифр нацело?

Составить программу для нахождения количества таких трехзначных чисел Фибоначчи, которые делятся на сумму своих цифр нацело.

Программа - Pascal ABC.

Blackflomik 14 дек. 2020 г., 03:24:46 | 5 - 9 классы

Составьте программу вычисления количества трехзначных чисел у которых Сумма цифр является четным числом?

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