Дано натуральное число n. Найти сумму цифр числа, больших 5.

@6edH · Регистрация: 22.01.2012

я нуб еще в паскале а задачи уже решать нада помогите пожалуйста

сабж

Дано натуральное число n. Найти сумму цифр числа, больших 5.

@Настенька93 · 22.01.2012, 18:08

задача реально сложная?

@Емеля · 22.01.2012, 19:11

var
n,n1:longint;
sum:integer;
begin
read (n);
repeat
n1:=n mod 10;
if n1>5 then sum:=sum+n1;
n:=n div 10;
until n=0;
writeln(sum);
end.

вроде так

@6edH · 22.01.2012, 19:29 **[ТС]**

спасиб братюнь

@Емеля · 22.01.2012, 19:37

да не за шо)...я сам новичок, ща усиленно изучаю за день pascal

@6edH · 22.01.2012, 19:41 **[ТС]**

прога работает норм, тока пришлось два readln дописывать что бы рез-ат задержался на экране

@6edH 0 / 0 / 0 Регистрация: 22.01.2012 Сообщений: 4
		1
	Дано натуральное число n. Найти сумму цифр числа, больших 5. 22.01.2012, 15:06. Показов 13148. Ответов 5 Метки нет (Все метки) я нуб еще в паскале а задачи уже решать нада помогите пожалуйста сабж Дано натуральное число n. Найти сумму цифр числа, больших 5. 0

@Настенька93 1 / 1 / 0 Регистрация: 22.01.2012 Сообщений: 12
	22.01.2012, 18:08	2
	задача реально сложная? 0

@Емеля 1 / 1 / 0 Регистрация: 22.01.2012 Сообщений: 3
	22.01.2012, 19:11	3
	var n,n1:longint; sum:integer; begin read (n); repeat n1:=n mod 10; if n1>5 then sum:=sum+n1; n:=n div 10; until n=0; writeln(sum); end. вроде так 1

@Емеля 1 / 1 / 0 Регистрация: 22.01.2012 Сообщений: 3
	22.01.2012, 19:37	5
	да не за шо)...я сам новичок, ща усиленно изучаю за день pascal 0

@6edH 0 / 0 / 0 Регистрация: 22.01.2012 Сообщений: 4
	22.01.2012, 19:41 [ТС]	6
	прога работает норм, тока пришлось два readln дописывать что бы рез-ат задержался на экране 0