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

@CaptainPike · Регистрация: 19.11.2012

Здравствуйте!

Помогите пожалуйста решить задачу:

1. Дано натуральное число. Верно ли, что в данном числе сумма цифр больше В, а само число делится на В (В вводится с клавиатуры)
Надо решить её, обязательно используя процедуры с параметром.

Я решил её, но без процедур (совсем не понимаю их). Может кто вклинить их в мой код ну или написать свой?

Pascal

var a,temp,g,delit,b:integer;
begin
writeln('Введите натуральное число');
begin
repeat
readln(a);
if a<=0 then writeln('Число меньше нуля, введите другое');
until a>0
end;
writeln('Введите B');
readln(b);
if a mod b=0 then writeln('Число делится на B')
             else writeln('Число не делится на B');
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.

Не пинайте за код пжл, я новичок.

P.S. Заранее спасибо

@CodeR · 19.11.2012, 10:57

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

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.

@CaptainPike · 19.11.2012, 11:30 **[ТС]**

Artem7, спасибо большое что откликнулись!

В вариантах программы с процедурой и без, при одних и тех же данных выдает разные результаты

При числах, например, 10 и 5 в проге с процедурой пишет, что сумма цифр первого числа больше второго числа, хотя это не так

@CodeR · 19.11.2012, 11:32

Сообщение от CaptainPike

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

да это мой косяк...надо обнулить во второй процедуре переменную g
Забыл что локальные переменные сами не обнуляются...

@CaptainPike 0 / 0 / 0 Регистрация: 19.11.2012 Сообщений: 31
	19.11.2012, 11:30 [ТС]	3
	Artem7, спасибо большое что откликнулись! В вариантах программы с процедурой и без, при одних и тех же данных выдает разные результаты При числах, например, 10 и 5 в проге с процедурой пишет, что сумма цифр первого числа больше второго числа, хотя это не так 0

@CodeR Фрилансер 3417 / 2814 / 3000 Регистрация: 08.02.2012 Сообщений: 8,518 Записей в блоге: 1
	19.11.2012, 11:32	4
	Сообщение от CaptainPike В вариантах программы с процедурой и без, при одних и тех же данных выдает разные результаты При числах, например, 10 и 5 в проге с процедурой пишет, что сумма цифр первого числа больше второго числа, хотя это не так да это мой косяк...надо обнулить во второй процедуре переменную g Забыл что локальные переменные сами не обнуляются... 0

Опции темы