![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 06.12.2009
Сообщений: 3
|
![]()
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций с целыми числами:
-дано натуральное число N. Определить количество восьмизначных чисел, у которых сумма цифр в цифровой записи числа меньше, чем N. Если таких чисел нет, вывести слово "нет". -дано натуральное число N (N>9). Определить сумму цифр во второй половине числа(младшие разряды). Пример: N=12 345 678. Сумма составляет 5+6+7+8=26. -дано натуральное число n. Проверить, будут ли все цифры числа различными. Разработать программу, использующую подпрограмму данного модуля. Заранее спасибо! |
![]() |
![]() |
![]() |
#2 |
Регистрация: 06.12.2009
Сообщений: 3
|
![]()
на последнее условие код сделала
вот он #program EvgeniiSp; uses Crt; var flag: boolean; n,i,x,k,j: integer; mas: array[1..20] of integer; //------ Input_data ------// procedure Input_data; begin write('Введите натуральное число n: '); readln(n); end; //---- Output_data ------// procedure Output_data; begin k:=0; x:=n; flag:=true; while n > 0 do //проверим сколько цифр в числе begin k:=k+1; mas[k]:=n mod 10; n:=n div 10; writeln(mas[k]); end; for i:=1 to k do // сравним цифры for j:=1 to k do if (mas[i] = mas[j]) and (i <> j) then flag:=false; if flag = true then writeln('цифры в числе различны.') else writeln('цифры в числе не различны.'); end; begin ClrScr; Input_data; Output_data; end. а первые два не получаются, и модуль собрать тоже не выходит((( |
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 254
|
![]()
А сейчас какая срочность?
помогать студентам - моя вторая профессия
|
![]() |
![]() |
![]() |
#4 |
Регистрация: 06.12.2009
Сообщений: 3
|
![]()
завтра сдать надо уже
|
![]() |
![]() |
![]() |
#5 | ||
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
![]() Цитата:
Цитата:
обращайтесь-контакты в профиле!
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
||
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Реализовать в виде модуля набор подпрогамм для выполнения следующих операций квадратными матрицами | Nomid | Общие вопросы C/C++ | 3 | 11.12.2010 15:48 |