|
0 / 0 / 0
Регистрация: 01.11.2008
Сообщений: 12
|
|
| 1 | |
Дано натуральное число:верно ли что в данном числе сумма цифр больше а и само число делится на b01.11.2008, 11:17. Показов 2644. Ответов 1
Метки нет (Все метки)
Дано натуральное число:верно ли что в данном числе сумма цифр больше и а само число делится на b.  плз если можно с блок-семой
0
|
|
(|
|
| 01.11.2008, 11:17 | |
|
Ответы с готовыми решениями:
1
Верно ли, что в данном числе сумма цифр больше В, а само число делится на В Дано натуральное число:верно ли что в данном числе сумма цифр больше и а само число делится на b Верно ли, что в данном числе сумма цифр больше А, а само число делится на А? |
|
(Yellow_Duck)
1261 / 130 / 15
Регистрация: 16.10.2008
Сообщений: 733
|
|
| 01.11.2008, 12:13 | 2 |
|
как то так, если тебе понравилось решение, нажми спасибо внизу сообщения.
Код
uses crt;
type
s4et=0..2; {создаем переключатель, т.к. булена нам мало}
var
n,b,sum:integer;
y:s4et;
begin
Write('N = ');readln(N); {считываем два числа Н и Б}
Write('b = ');readln(b);
while(n>0) do {находим сумму цифр}
begin
sum:=sum+(n mod 10); {записывая последнюю}
n:=n div 10; {и удаляя ее же}
end;
if ((sum-1)>b) then inc(y); {если сумма болльше б, тогда игрек увеличиваем на 1}
if n mod b=0 then inc(y); {если н делится на б, то увеличиваем у еще на 1}
if y=2 then writeln('Pravda')
else writeln('Ne Pravda');
readln;
end.
Единственное я не поня, т.к. ты плохо написал на великом и могучем. Вообще-то, есть еще и запятые, и точки, и порядок предожения у нас тоже определенный...так что как я понял там два числа н и б, на может быть там еще и а есть, хз
0
|
|
| 01.11.2008, 12:13 | |
|
Помогаю со студенческими работами здесь
2
Верно ли, что в данном числе сумма цифр больше А, а само число делится на А?
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
