Дано натуральное число

@Shep521 · Регистрация: 29.11.2010

1) найти сумму цифр которые больше 5
2) сколько раз данная цифра встречается в числе
помогите плиз

Добавлено через 19 часов 40 минут
Никто не поможет?

@irina1410 · 30.11.2010, 19:10

Честно говоря задание не понятно. Число двузначное, трехзначное или как?

@patricksmirnov · 30.11.2010, 19:26

2

Pascal

uses crt;
var a,k,count,j:integer;
Begin
write('Chislo= ');
readln(a);
write('k= ');
readln(k);
count:=0;
Repeat
j:=a mod 10;
if j=k then inc(count);
a:=a div 10;
Until a=0;
 writeln(count);
 
End.

Добавлено через 2 минуты
1

Pascal

uses crt;
var a,sum,j:integer;
Begin
write('Chislo= ');
readln(a);
sum:=0;
Repeat
 
      j:=a mod 10;
      if j>5 then sum:=sum+j;
      a:=a div 10;
 
Until a=0;
 
writeln(sum);
 
End.

@Shep521 1 / 1 / 0 Регистрация: 29.11.2010 Сообщений: 34
		1
	Дано натуральное число 30.11.2010, 15:04. Показов 951. Ответов 2 Метки нет (Все метки) 1) найти сумму цифр которые больше 5 2) сколько раз данная цифра встречается в числе помогите плиз Добавлено через 19 часов 40 минут Никто не поможет? 0

@irina1410 6 / 6 / 4 Регистрация: 14.09.2010 Сообщений: 54
	30.11.2010, 19:10	2
	Честно говоря задание не понятно. Число двузначное, трехзначное или как? 0

Опции темы

Дано натуральное число

Решение