Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
jedi1892
0 / 0 / 0
Регистрация: 22.10.2009
Сообщений: 10
1

циклы

22.10.2009, 21:32. Просмотров 883. Ответов 1
Метки нет (Все метки)

среди всех n-значных чисел указать те,сумма цифр которых равна заданному числу k.решить надо через while
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2009, 21:32
Ответы с готовыми решениями:

Переведите исходные циклы в циклы других форматотв:
Переведите исходные циклы в циклы других форматотв: For i:73 to 122 do в...

Циклы с параметром (циклы ДЛЯ)
Заданные векторы X(N) и Y(N) преобразовать по правилу: большее из xi и yi...

Циклы
помогите пожалуйста: 3. Начав тренировки спортсмен в первый день пробежал 10...

циклы
плз решите задачу тремя циклами буду очень рад и благодарен.

циклы
1. Вычислить значение выражения с использованием трех видов цикла. Дано...

1
Давид
Программист 1С
856 / 644 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
22.10.2009, 21:49 2
Лучший ответ Сообщение было отмечено jedi1892 как решение

Решение

jedi1892, Нашел исходник у себя...он с for -- переделать я думаю не составит труда!
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
30
Program ааа;
uses crt;
var i,d,s,c,c1,c2,k:integer;
    x,b,a,n:longint;
begin
delay (500);
clrscr;
a:=1;
s:=0;
writeln ('Введите переменную n и k и нажмите Enter');
readln(n,k);
for i:=1 to n do
a:=a*10;
x:=a-1;
b:=a div 10;
for i:=b to x do
begin
  d:=i;
  s:=0;
  for c:=1 to n do
   begin
    c1:=d mod 10;
    d:=d div 10;
    s:=s+c1;
    end;
    if (s=k) then
    Write(' ',i);
  end;
Readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.10.2009, 21:49

циклы((((
блин нее люблю циклы( помогите плиз решить: С клавиатуры вводятся N...

на циклы
найти количество отрицательных значений функции и их произведение и разность...

Циклы
Выполнить суммирование членов бесконечного ряда по точности та по колическву...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru