Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Построить куб в изометрии https://www.cyberforum.ru/ pascalabc/ thread601718.html
Пожалуйста помогите, нужно построить куб в изометрии!
Найти среднее арифметическое всех целых чисел от 100 до b Pascal ABC
1)Найти среднее арифметическое всех целых чисел от 100 до b( значение b вводится с клавиатуры; b≥100). Заранее хотел поблагодарить вас, напряженка у меня с информатикой
Pascal ABC Разветвляющиеся алгоритмы. Даны два числа. Выяснить, являются ли они взаимообратными
1)Даны два числа. Выяснить, являются ли они взаимообратными. написать в паскале абс программы
Pascal ABC Матрица. Вычислить полусумму минимального и максимального значений дан массив С(8,4) нужно найти: V=(maxC(i,j)+minC(i,j))/2 желательно через DIM, DATA и т.д. https://www.cyberforum.ru/ pascalabc/ thread601707.html
Pascal ABC Дан двумерный массив.Подсчитать сумму и произведение всех положительных его элементов https://www.cyberforum.ru/ pascalabc/ thread601671.html
1)Дан двумерный массив.Подсчитать сумму и произведение всех положительных его элементов. 2)Подсчитать произведение всех введенных с клавиатуры чисел, пока не будет введен 0. Результат вывести на...
Pascal ABC Двумерные массивы. Удалить все строки, содержащие только четные элементы
Никак не могу разобраться, как удалить строки, в которых находятся только четные элементы. Помогите, пожалуйста Пользователь задает с клавиатуры вещественную матрицу А(n,m), где n<10, m<10....
Pascal ABC Дано натуральное число n. Вычислить произведение первых n
Дано натуральное число n. Вычислить произведение первых n сомножителей и распечатать: \frac{1}{2}*\frac{3}{4}*\frac{5}{6}*... Добавлено через 2 часа 24 минуты Помогите срочно с решением!
Pascal ABC Дан целочисленный вектор В(5). Найти значения величины Дан целочисленный вектор В(5). Найти значения величины Z=max|{b}_{i}| и длину вектора \sqrt{\sum_{5}^{1}{b}_{i}^{2} 1\leq i\leq 5 Добавлено через 2 часа 29 минут Помогите срочно с... https://www.cyberforum.ru/ pascalabc/ thread601597.html
Pascal ABC Записать в третий файл все начальные совпадающие элементы имеющихся файлов https://www.cyberforum.ru/ pascalabc/ thread601576.html
Помогите с решением... Решать предпочтительно с процедурами.. первая-заполнение...вторая перезапись в третий файл..третья-открытие третьего файла... Заранее спасибо!!! Имеются два типизированных...
Pascal ABC Графика. В правильной четырехугольной пирамиде провести сечение Помогите с решением задачи.даже не знаю с чего и начать....Не разу не сталкивался с подобными задачами... 8. В правильной четырехугольной пирамиде провести сечение проходящее через диагональ... https://www.cyberforum.ru/ pascalabc/ thread601561.html
Лучи добра
172 / 170 / 191
Регистрация: 08.06.2012
Сообщений: 292
09.06.2012, 23:42 0

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

09.06.2012, 23:42. Просмотров 12382. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Держи свои задачи. Только впредь попрошу для каждого задания создавать отдельную тему.
Вторая:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program z;
var a,a1,s:integer;
begin
     writeln('Введите число');
     readln(a);
     s:=0;
     while a<>0 do
           begin
                a1:=a mod 10;
                s:=s+a1;
                a1:=a div 10;
                a:=a1;
           end;
     if (s mod 5)=0
        then
            writeln('Сумма цифр этого числа кратна 5')
     else
         writeln('Сумма цифр этого числа не кратна 5');
end.


Вернуться к обсуждению:
Определить, кратна ли пяти сумма цифр числа
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2012, 23:42
Готовые ответы и решения:

Определить кратна ли трем сумма цифр числа
Пожалуйста помогите !! Дано четырехзначное число. Определить кратна ли трем сумма его цифр. На...

Определить все двузначные числа, сумма квадратов цифр которых кратна числу 15
Определить все двузначные числа, сумма квадратов цифр которых кратна числу 15. ЧЕРЕЗ REPEAT

Для каждого числа в интервале от a до b, сумма цифр которого кратна трём, зеркально отразить цифры числа
Даны 2 целых трёхзначных числа: a и b. Для каждого числа в интервале от a до b, сумма цифр которого...

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

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