Помогите составить программу в Паскале

[юлёк fomik]

Помогите составить программу в Паскале

Помогите составить программу в паскале:Дано натур число N (999<=N<=999999999) Ввести значение K(1<K<9) c клавиатуры. Найти сумму цифр данного числа и количество цифр, больших K. Остальные цифры (<=K) вывести на экран в любом порядке.

 

[Vladimir_S]

Помогите составить программу в паскале:Дано натур число N (999<=N<=999999999) Ввести значение K(1<K<9) c клавиатуры. Найти сумму цифр данного числа и количество цифр, больших K. Остальные цифры (<=K) вывести на экран в любом порядке.

"Элементарно, Ватсон!":

Var
 N:LongInt;
 K,Sum,Num,m:Byte;
Begin
 Write('N (>998 and <1000000000) = ');
 Readln(N);
 Write('K (>1 and <9) = ');
 Readln(K);
 Num:=0;
 Sum:=0;
 Repeat
  m:=N mod 10;
  Inc(Sum,m);
  If m>K then Inc(Num) else Write(m,' ');
  N:=N div 10;
 Until N=0;
 Writeln;
 Writeln('Sum of all figures is ',Sum);
 Writeln('Number of figures, greater then ',K,', is ',Num);
 Readln
End.

 

[юлёк fomik]

А можно с помощью оператора while составить, пожалуйста?)

 

[юлёк fomik]

можно использовать только while if writeln readln mod div, оператор присваивания.

 

[Vladimir_S]

А можно с помощью оператора while составить, пожалуйста?)

Можно и так... Только вот чем Repeat..Until не устраивает?:tehnari_ru_325:

Var
 N:LongInt;
 K,Sum,Num,m:Byte;
Begin
 Write('N (>998 and <1000000000) = ');
 Readln(N);
 Write('K (>1 and <9) = ');
 Readln(K);
 Num:=0;
 Sum:=0;
 While N>0 do
  begin
   m:=N mod 10;
   Inc(Sum,m);
   If m>K then Inc(Num) else Write(m,' ');
   N:=N div 10;
  end;
 Writeln;
 Writeln('Sum of all figures is ',Sum);
 Writeln('Number of figures, greater then ',K,', is ',Num);
 Readln
End.

 

[Vladimir_S]

можно использовать только while if writeln readln mod div, оператор присваивания.

Преподавателей, которые связывают учащихся подобными идиотскими ограничениями, тем самым выхолащивая самое интересное в программировании, а именно творческое начало, - РАССТРЕЛЯТЬ! Без замены штрафом.

 

[юлёк fomik]

спасибо огромное)))

 

[юлёк fomik]

А что такое оператор Inc

 

[юлёк fomik]

просто мы этого ещё не проходили

 

[юлёк fomik]

ПРИ ЗАПУСКЕ ПРОГРАММЫ ОН НАХОДИТ НЕ БОЛЬШЕ "К" А БОЛЬШЕ ИЛИ РАВНО "К"???!!!
а ЕЩЁ НУЖНО ОПРЕДЕЛИТЬ ЧЁТНО ЛИ КОЛ-ВО ЦИФР БОЛЬШИХ "К")

 

[Vladimir_S]

А что такое оператор Inc

Операция над ЦЕЛЫМИ числами:
Inc(m,n) эквивалентно m:=m+n
Inc(m) эквивалентно m:=m+1
Dec(m,n) эквивалентно m:=m-n
Dec(m) эквивалентно m:=m-1

 

[Vladimir_S]

ПРИ ЗАПУСКЕ ПРОГРАММЫ ОН НАХОДИТ НЕ БОЛЬШЕ "К" А БОЛЬШЕ ИЛИ РАВНО "К"???!!!

"Он" находит ровно то, что требуется в сформулированном Вам задании. Я не выкладываю сюда программ, пока они тщательно не оттестированы.

а ЕЩЁ НУЖНО ОПРЕДЕЛИТЬ ЧЁТНО ЛИ КОЛ-ВО ЦИФР БОЛЬШИХ "К")

А откуда это следует? Прочтите еще раз, как Вы сформулировали задание.

В общем, так. Итераций не будет. Изменения в программу будут внесены тогда, когда будет выложена полная, тщательно проверенная и точная формулировка задания. А не эти бесконечные тяп-ляп, вокруг да около и абы как ни попадя.

 

[юлёк fomik]

Извините.
Дано натуральное число N (999<=N<=999999999).Ввести значение K (1<K<9) с клавиатуры. Найти сумму цифр данного числа и кол-во цифр, больших K.
Остальные цифры (<=K) вывести на экран в любом порядке.
Определить, чётно ли кол-во цифр,больших К.

 

[юлёк fomik]

Спасибо, что объяснили.

 

[Vladimir_S]

Дано натуральное число N (999<=N<=999999999).Ввести значение K (1<K<9) с клавиатуры. Найти сумму цифр данного числа и кол-во цифр, больших K.
Остальные цифры (<=K) вывести на экран в любом порядке.
Определить, чётно ли кол-во цифр,больших К.

Ну пожалуйста, вот:

Var
 N:LongInt;
 K,Sum,Num,m:Byte;
Begin
 Write('N (>998 and <1000000000) = ');
 Readln(N);
 Write('K (>1 and <9) = ');
 Readln(K);
 Num:=0;
 Sum:=0;
 While N>0 do
  begin
   m:=N mod 10;
   Inc(Sum,m);
   If m>K then Inc(Num) else Write(m,' ');
   N:=N div 10;
  end;
 Writeln;
 Writeln('Sum of all figures is ',Sum);
 Write('Number of figures, greater then ',K,', is ',Num);
 If (Num mod 2)=0 then
  Writeln(' (even)')
 else
  Writeln(' (odd)');
 Readln
End.

Одна ремарка. По некоторым причинам мне возиться с кириллицей в программах страшно неудобно, отсюда все надписи по-английски, так что Вы уж сами поправьте, если надо. На всякий случай:
even - четное
odd - нечетное.

 

[юлёк fomik]

спасибо огромное))