Сложнейшая задача!, Дополнить число ***999 цифрами слева так,чтобы полученное число делило |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Сложнейшая задача!, Дополнить число ***999 цифрами слева так,чтобы полученное число делило |
Bac9 |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 12 Пол: Мужской Реальное имя: Вячеслав Репутация: -1 |
Помагите плиз надо завтро срочно отчё здать а я нечё несделал!!!!Дополнить число ***999 цифрами слева так,чтобы полученное число делилось на 13,17,19!!
|
Гость |
Сообщение
#2
|
Гость |
нет вот я уже её сделал вот решение:
uses crt; VAR q,a,b,c,k,i,j:longint; s:array[1..100] of longint; BEGIN clrscr; a:=999; for i:=1 to 9 do begin for j:=0 to 9 do begin for k:=0 to 9 do begin c:=i*100000+j*10000+k*1000+9*100+9*10+9; end; if (c mod 13)=0 then writeln ('4ucLo geJluTc9 Ha 13 ',c); if (c mod 17)=0 then WRITELN('4ucLo geJluTc9 Ha 17 ',C); if (c mod 19)=0 then WRITELN('4ucLo geJluTc9 Ha 19 ',C); end; end; END. |
Текстовая версия | 28.09.2024 2:32 |