Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Вывести первое слово строки в обратном порядке https://www.cyberforum.ru/ pascalabc/ thread701931.html Помогите решить. Вывести первое слово строки в обратном порядке.	Другой способ Pascal ABC Задача: Заменить все многоточия точками. Знаю, что задача идиотская, я ее решил 2 способами: №1 var sim:string; n:integer; begin writeln('строка'); readln(sim);
Pascal ABC Циклы с заданным количеством повторений: Напечатать «столбиком» значения sin2, sin3,…, sin20 Циклы с заданным количеством повторений Напечатать «столбиком» значения sin2, sin3,…, sin20. https://www.cyberforum.ru/ pascalabc/ thread701886.html	Pascal ABC Массивы: Найти произведение положительных элементов, значение которых меньше 10 Приветствую форумчане. Прошу вас помочь с заданием. За ранее огромное спасибо от всей группы. Задача: Массивы 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Найти: -... https://www.cyberforum.ru/ pascalabc/ thread701864.html
Pascal ABC Массив: Определить, есть ли пара соседних элементов с произведением, равным числу 56 Приветствую форумчане. Прошу вас помочь с заданием. Задача: Массивы 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Определить, есть ли пара соседних элементов с...	Pascal ABC Из элементов массива Р сформировать массив М той же размерности по правилу Приветствую форумчане. Прошу вас помочь с заданием. За ранее огромное спасибо от всей группы. Задача: 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Из элементов... https://www.cyberforum.ru/ pascalabc/ thread701860.html
Pascal ABC Умножить все элементы, кратные 5, на пятый элемент массива https://www.cyberforum.ru/ pascalabc/ thread701859.html Приветствую форумчане. Прошу вас помочь с заданием. За ранее огромное спасибо от всей группы. Задача: 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Умножить все...	Pascal ABC Заменить первый отрицательный элемент буквой k Приветствую форумчане. Прошу вас помочь с заданием. За ранее огромное спасибо от всей группы. Задача: Массивы 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Заменить...
Pascal ABC Паскаль. Узнать одинаковые поля записей https://www.cyberforum.ru/ pascalabc/ thread701817.html Помогите! Вводим число больных. Для больных каждом указываем имя, фамилию, болезнь и т.д. Это я сделал. Суть задачи: 1) Вывести больных по дню рождения. - Это сделал. 2) Вывести тех больных,...	Pascal ABC Найти, сколько слов в тексте заканчивается двойной согласной Помогите пожалуйста Найти, сколько слов в тексте заканчивается двойной согласной. https://www.cyberforum.ru/ pascalabc/ thread701776.html
Pascal ABC Составить программу вычисления и печати в виде таблицы значении функции и соответствующих аргументов Примечание: извлечение корня третьей степени и выше осуществлять по итерационной формуле Ньютона:	Pascal ABC Определить сколько заданных буквосочетаний из 2 букв в строке https://www.cyberforum.ru/ pascalabc/ thread701763.html Помогите с программкой. Определить сколько заданных буквосочетаний из 2 букв в строке.

CodeR

Фрилансер

3417 / 2814 / 3000

Регистрация: 08.02.2012

Сообщений: 8,549

Записей в блоге: 1

19.11.2012, 10:57

Верно ли, что в данном числе сумма цифр больше В, а само число делится на В - Pascal ABC - Ответ 3720829

19.11.2012, 10:57. Показов 5144. Ответов 3

Метки (Все метки)

Ответ

Ну вот так можно...

Pascal

var a,delit,b:integer;
Procedure P1(a:integer;b:integer);
Begin
  if a mod b=0 then writeln('Число делится на B')
             else writeln('Число не делится на B');
End;
Procedure P2(a:integer;b:integer);
Var temp,g:integer;
Begin
  while a<>0 do
begin
temp:=a mod 10;
g:=g+temp;
a:=a div 10;
end;
if g>b then writeln ('Сумма цифр больше числа B')
            else
            if g<b then writeln('Сумма цифр меньше числа B')
                   else writeln('Сумма цифр равна числу B');
End;
begin
writeln('Введите натуральное число');
begin
repeat
readln(a);
if a<=0 then writeln('Число меньше нуля, введите другое');
until a>0
end;
writeln('Введите B');
readln(b);
P1(a,b);
P2(a,b);
end.

Вернуться к обсуждению:
Верно ли, что в данном числе сумма цифр больше В, а само число делится на В Pascal ABC

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.11.2012, 10:57

Готовые ответы и решения:

Дано натуральное число:верно ли что в данном числе сумма цифр больше а и само число делится на b
Помогите решить задачу на отчет: Дано натуральное число:верно ли что в данном числе сумма цифр...

Верно ли, что в данном числе сумма цифр больше А, а само число делится на А?
Дано натуральное число. Верно ли, что в данном числе сумма цифр больше А, а само число делится на...

Дано натуральное число:верно ли что в данном числе сумма цифр больше и а само число делится на b
Помогите решить задачу на отчет: Дано натуральное число:верно ли что в данном числе сумма цифр...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.11.2012, 10:57

Помогаю со студенческими работами здесь

Дано натуральное число b. Верно ли, что в данном числе сумма цифр больше b, а само число делится на а.
1.Дано натуральное число b. Верно ли, что в данном числе сумма цифр больше b, а само число делится...

Условный оператор. Верно ли, что сумма цифр данного числа больше М, а само число делится на N
Дано натуральное число. Верно ли, что сумма его цифр больше М, а само число делится на N?

Верно ли, что сумма его цифр больше, а само число четное?
Дано натуральное число. а) Верно ли, что сумма его цифр больше, а само число четное? б) Верно ли,...

Определить верно ли что сумма цифр числа больше заданной а само число четное
В первой строке вводится натуральное чило n Во второй строке вводится число B Вывести на экран...

Наверх