0 / 0 / 0
Регистрация: 08.10.2011
Сообщений: 31
1

Определить, есть ли среди чисел такие, в которых сумма старшей и младшей цифр больше заданного числа

24.10.2011, 21:18. Показов 987. Ответов 4
Метки нет (Все метки)

Определить, есть ли среди чисел диапазона, определяемого типом Byte, такие, в которых сумма старшей и младшей цифр больше заданного пользователем числа.
с помощью циклов repeat и/или while

старшую и младшую цифру находить с помощью div mod


сама делала
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var A:byte; sum:integer; 
 
Procedure Alg(A:integer; var sum:integer); 
var y:integer; x:byte; 
begin 
sum:=0; 
x:=255; 
write ('введите число'); 
readln (A); 
while (x>0) and (x<256) do 
begin 
x:=x-1; 
y:=x mod 10; 
sum:=sum+y; 
x:=x div 100; 
sum:=sum+x; 
if sum > A then 
write ('есть число',x) 
else 
write('*нет*'); 
 
end; 
 
end; 
 
Begin 
Alg(A, sum); 
readln; 
End.
понимаю что вообще бред скорее всего
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.10.2011, 21:18
Ответы с готовыми решениями:

Определить, есть ли среди чисел такие, в которых сумма старшей и младшей цифр больше заданного числа
Определить, есть ли среди чисел диапазона, определяемого типом Byte, такие, в которых сумма старшей...

Определить, есть ли среди чисел такие, в которых сумма старшей и младшей цифр больше заданного числа
Помогите написать программу Определить, есть ли среди чисел диапазона, определяемого типом Byte,...

Определить сумму двухзначных чисел, сумма цифр которых больше заданного числа
Определить сумму двухзначных чисел, сумма цифр которых больше заданного числа. Решил через For....

Найти модуль разности старшей и младшей цифр заданного натурального числа
Найти модуль разности старшей и младшей цифр заданного натурального числа

4
60 / 40 / 30
Регистрация: 26.05.2011
Сообщений: 92
24.10.2011, 21:42 2
Так правильно
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var 
  A:byte;
 
 Procedure Alg(A:Byte); 
  var
    x:byte; 
    sum:integer;
  begin 
   x:=255; { максимальное значение диапазона }
   while (x>0) do begin 
    sum:=x mod 10;          { младшая цифра }
 
    if x>99 then sum:=sum + (x div 100)
            else sum:=sum + (x div 10); { старшая цифра }
 
    if sum>A then writeln ('есть число ', x);
 
    x:=x-1; 
   end;
 end; 
 
Begin 
  write ('введите число '); 
  readln (A); 
  Alg(A); 
  readln; 
End.
1
0 / 0 / 0
Регистрация: 08.10.2011
Сообщений: 31
24.10.2011, 22:08  [ТС] 3
Добавлено через 2 минуты
Al50, блин, спасибо)) но суть в том, что мне все эти числа не нужно выводить. нужно выйти из цикла, как только найдем хоть одно число и написать что такое есть
0
60 / 40 / 30
Регистрация: 26.05.2011
Сообщений: 92
24.10.2011, 22:23 4
mnevseravno, меняй процедуру на функцию (функции возвращают значение) и
ставь на цикл условие: while (x>0) or (sum<=A) do begin,
проверяй после цикла x<>0 и возвращай 0 или sum .
0
0 / 0 / 0
Регистрация: 08.10.2011
Сообщений: 31
25.10.2011, 18:34  [ТС] 5
Al50, вот так? я по моему опять напортачила...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var A,k: integer;
 
Function Alg (A:integer):integer;
var   x:byte; sum,k:integer;
begin
 x:=255;
 while (x>0) or (sum <=A) do
  begin
   sum:= x mod 10;
   if x> 99 then sum:= sum + (x div 100)
            else sum:= sum + (x div 10);
   x:=x-1;
 end;
 if (x<>0) then Alg:=sum else Alg:=0;
end;
 
Begin
 write ('введите число');
 readln (A);
 k:=Alg(A);
 if k=0 then write ('*есть*') else write ('нет');
 readln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.10.2011, 18:34
Помогаю со студенческими работами здесь

Для заданного натурального n определить сумму всех цифр, кроме старшей и младшей
Функция должна для заданного натурального числа n определить сумму всех цифр, кроме старшей и...

Среди простых чисел , не превосходящих заданного натурального числа N .Найти такие, в десятичном представление которых больше всего нулей.
Форумчате помогите пожалуйста завтра зачет последняя прога ни как не выходит(

Среди простых чисел , не превосходящих заданного натурального числа N .Найти такие, в десятичном представление которых больше всего нулей
Ребята помогите!!!!!!!!!!!!!! плс

Определить сумму цифр старшей и младшей половины числа
Помогите, пожалуйста, не могу решить задачу до конца.... Дано натуральное число, требуется вывести...

Есть ли среди чисел в диапазоне от А до В такие, произведение цифр которых равно С?
1. Написать программу на языке С++ для решения задачи: Даны два числа А, В и С. Определить, есть ли...

Определить количество чисел, у которых сумма цифр в цифровой записи числа больше чем К
Дано шестнадцатеричное натуральное число N.Определить количество чисел, у которых сумма цифр в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru