|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.02.2007, 16:27 | #1 |
Пользователь
Регистрация: 01.02.2007
Сообщений: 12
|
Найти количество различных цифр данного натурального числа.
Помогите переделать:
1)Дано натуральное число: найти вторую(сначала) цифру данного числа; верно ли что данное число делится на (А,В,С)-вводятся с Клавы.. 2)Найти все двузначные числа которые при умножение на 2 заканчиваются на 8, а при умножение на 3 заканчиваются на 4. 3)Найти количество различных цифр данного натурального числа. Сколько я мучался не получается и все тут. Может кто из добрых людей поможет мне… Заранее благодарю….. Вот что у меня получилось: Но надо, чтобы при запуски проги можно было выбрать номер задачи, например при нажатие 1 выполняется первая прога , при нажатие 2 и тд… program stalker; uses crt; var d:1..3; y,k,h,v,x,s,m,n,b,a,i,i1,c,z,e,q,w, g:integer; l:char; begin clrscr; l:='y'; while l='y' do begin writeln('выберите действие 1,2,3'); readln(e); s:=n; i:=0; if e=1 then begin writeln('введите число a'); readln(a); writeln('введите число b'); readln(b); writeln('введите число c'); readln(c); writeln('введите число'); readln(n); s:=n; while n<>0 do begin m:=n mod 10; n:=n div 10; i:=i+1; while s<>0 do begin m:=s mod 10; s:=s div 10; x:=i-1; if x=2 then begin writeln(m); end else writeln('нет'); end; if (m mod a)=0 then writeln('верно на а'); if (m mod b)=0 then writeln('верно на b'); if (m mod c)=0 then writeln('верно на с'); end; end; if e=2 then begin { writeln('введите количество 2 значных чисел'); readln(z); for i1:=1 to z do begin writeln('введите ',i1,' 2-х1 значное число'); readln(q); } writeln('vvedite chislo'); readln(q); s:=q*2; w:=q*3; x:=s mod 10; y:=w mod 10; if ((x=8)and(y=4)) then writeln('da') else writeln('нет'); {v:=q; q:=q*3; n:=w mod 10; end; if n=4 then writeln(v) else writeln('нет');} end; if e=3 then begin writeln('z'); readln(z); k:=(-1); while z<>0 do begin m:=z mod 10; z:=z div 10; if m<>k then begin i:=i+1; k:=m; end; end; end; writeln(i); end; writeln('прдолжить работу y/n'); readln(l); readln;end. |
14.02.2007, 19:06 | #2 | ||
Пользователь
Регистрация: 09.02.2007
Сообщений: 32
|
Цитата:
Цитата:
Ответь. Я тебе код напишу. Задача не сложная.
Time have not meaning, mind - this is main...
|
||
14.02.2007, 19:58 | #3 | |
Пользователь
Регистрация: 09.02.2007
Сообщений: 32
|
Я написал тебе код по всей твоей второй проге. Но со второй частью там реальный прикол!
Цитата:
Time have not meaning, mind - this is main...
|
|
14.02.2007, 20:12 | #4 |
Пользователь
Регистрация: 01.02.2007
Сообщений: 12
|
Да именно делитя и на A и на B и на C....
((3)Найти количество различных цифр данного натурального числа.)) да именно в целом (числовом).... Напиши пожалуйста прогу срочно надо.... Заранее спасибо и отдельный RESPECT тебе за отзывчивость... |
14.02.2007, 20:18 | #5 |
Пользователь
Регистрация: 09.02.2007
Сообщений: 32
|
Ща напишу... А чё насчёт второй части второй проги? Прочитай мой пост выше.
Time have not meaning, mind - this is main...
|
14.02.2007, 20:37 | #6 |
Пользователь
Регистрация: 01.02.2007
Сообщений: 12
|
Я сам не понял почему так, но постановка задачи именно такая!!!!????!!!!!
Может тогда не нулю , а просто считае X Y Z и выводит ответ....... Попробуй пожалуйста сделать так как считаешь сам..... |
14.02.2007, 21:32 | #7 | |
Пользователь
Регистрация: 09.02.2007
Сообщений: 32
|
Вот код к первой программе:
Код:
Цитата:
Time have not meaning, mind - this is main...
|
|
14.02.2007, 21:36 | #8 | |
Пользователь
Регистрация: 09.02.2007
Сообщений: 32
|
Цитата:
Короче вот код, но в случае с x,y,z ничего не будет выведено на экран, но алгоритм верный. Код:
Time have not meaning, mind - this is main...
|
|
14.02.2007, 22:25 | #9 |
Пользователь
Регистрация: 01.02.2007
Сообщений: 12
|
Большое прибольшое спасибо.....
Спасибо, что уделил время, надеюсь на дальнейшую поддержку.... |
14.02.2007, 22:33 | #10 |
Пользователь
Регистрация: 09.02.2007
Сообщений: 32
|
Незачто! Обращайся ещё и учись хотя бы простые задачи решать сам.
Просматривая мои программы, вникни в каждую букву, пойми, что откуда берётся и весь алгоритм в целом. Если будешь разбираться в них - это тебе поможет научится делать самому проги. Со временем будет приходить опыт.
Time have not meaning, mind - this is main...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Количество цифр после запятой | LIEN | БД в Delphi | 7 | 03.07.2008 22:12 |
Паскаль. найти все числа кратные трем и посчитать их количество | __k1ll3r__ | Помощь студентам | 6 | 02.04.2008 16:37 |
Помогите!Срочно! "Составьте программу получения в порядке убывания всех делителей данного числа" | koston | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 26.03.2008 12:34 |
Подсчитать количество чисел с заданной суммой цифр | belovv | Помощь студентам | 3 | 25.12.2007 20:55 |