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

@sashkakor · Регистрация: 02.04.2012

Студворк — интернет-сервис помощи студентам

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

@UserABC · 06.04.2012, 21:27

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

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

Код:

Pascal

program z_number;
uses crt;
var sum,num,m,n:integer;
f:boolean;
begin
 clrscr;
{Ââîä ÷èñëà}
 writeln('Ââåäèòå ÷èñëî');
 readln(num);
 writeln('ââåäèòå ÷èñëî Ì');
 READLN(m);
 writeln('ââåäèòå ÷èñëî N');
 readln(n);
 sum:=0;
 while not(num=0) do
 begin
 sum:=sum+(num mod 10);
 num:=num div 10;
 end;
if sum>m then writeln(not f) else writeln(f);
if sum mod n = 0 then writeln(not f) else writeln(f);
end.

@sashkakor 0 / 0 / 0 Регистрация: 02.04.2012 Сообщений: 17
		1
	Условный оператор. Верно ли, что сумма цифр данного числа больше М, а само число делится на N 06.04.2012, 21:19. Показов 1779. Ответов 1 Метки нет (Все метки) Дано натуральное число. Верно ли, что сумма его цифр больше М, а само число делится на N? 0

Опции темы

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

Решение