Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Заполнить начало исходного массива номерами позиций, где находились нулевые элементы https://www.cyberforum.ru/ pascal/ thread1322247.html
Задан одномерный массив длиной (N), в котором находятся целые числа и нули. Заполнить начало исходного массива номерами позиций, где находились нулевые елементы. Потом дописать массив ненулевыми...
Pascal Определить тип рациональное число
Определить тип рациональное число. Определить подпрограмму вычисления суммы двух рациональных чисел. Помогите пожалуйста написать.
Pascal Среднее арифметическое компонент действительного вектора
Определить функцию для вычисления среднего арифметического компонент действительного вектора. Помогите пожалуйста.
Pascal Создать блок-схему алгоритма вычисления суммы ряда y=sinx=1-x^3/3!+x^5/5!-…+(-1)^n* (x^(2n+1))/(2n+1)!+...+ блок-схема от чего оттолкнуться? https://www.cyberforum.ru/ pascal/ thread1322143.html
Pascal Дан массив из N целых чисел. Найти номер последнего элемента, который больше 10 https://www.cyberforum.ru/ pascal/ thread1322141.html
Дан массив из N целых чисел. Найти номер последнего элемента, который больше 10.
Не работает цикл Pascal
Задали написать игру Быки и коровы, думаю все правила знают, пишу ту часть где пользователь будет отгадывать число. Проблема в том что цикл с вводом не хочет работать. Точнее почему то он работает...
Массивы Pascal
Дан двумерный массив целых чисел.Если сумма элементов главной диагонали первого компонента равна сумме элементов побочной диагонали последнего компонента, то в новый файл записать эти...
Pascal Найдите длину стороны основания и площадь боковой поверхности призмы Hellp Основанием прямой призмы служит ромб, длины диагоналей призмы равны a и b см, а высота c см. Найдите длину стороны основания и площадь боковой поверхности. a=2 b=6 c=4 Вопрос такой: как... https://www.cyberforum.ru/ pascal/ thread1322026.html
Pascal Дано натуральное число, выяснить, каких цифр больше нулей или единиц https://www.cyberforum.ru/ pascal/ thread1322014.html
Дано натуральное число, выяснить, каких цифр больше нулей или единиц
Pascal Упорядочить по невозрастанию те элементы массива, которые не находятся между минимальным и максимальным Дан целочисленный массив x размера n. Упорядочить по невозрастанию те элементы массива, которые не находятся между минимальным и максимальным(если такие имеются). https://www.cyberforum.ru/ pascal/ thread1321994.html
Платежеспособный зверь
8682 / 4110 / 1594
Регистрация: 28.10.2009
Сообщений: 11,112
07.12.2014, 15:45 0

Определить кратна ли трем сумма цифр числа

07.12.2014, 15:45. Просмотров 3174. Ответов 4
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
var
a:integer;
begin
readln(a);
if a mod 3=0 then writeln('yes')else writeln('no');
end.


Вернуться к обсуждению:
Определить кратна ли трем сумма цифр числа
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2014, 15:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найдите все такие числа
Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найдите все такие числа.

Найти все двузначные числа, сумма квадратов цифр которых кратна 4
Найти все двузначные числа, сумма квадратов цифр которых кратна 4. (написать программу. ) с...

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

Дан массив целого типа, определить элементы, сумма цифр которых кратна 3
Дан массив А (н) целого типаю оределить элементы, сумма цыфр которых кратна 3м Добавлено через 1...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.