 Цикл без параметра, Задача зациклилась |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| TanyaH |
 13.01.2006 11:37
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 10 Пол: Женский Репутация:  0   |
Найти любое трехзначное число кратное P и не равное ему (цикл без параметра).
program p3;
user crt;
var
p;k;l: integer;
begin
ClrScr;
write('Вводите число-> ');
readln(p); {вводим число}
k:=0;
l:=100;
While (l<1000) or (k>p)do begin
if (l/p)= trunc(l/p) then k:=l;
l:= l+1;
If k=0
then write('нет трехзначного числа кратного заданному');
else
write('число ');
write(k);
write('кратно заданному числу ');
write(p);
end;
end.
Теги ! Сообщение отредактировано: volvo - 7.11.2006 18:12 |
   |
 
|
Сообщений в этой теме
TanyaH Цикл без параметра 13.01.2006 11:37
Студентик13 А че на до то?
Вот теперь работает, синтаксис пр... 13.01.2006 11:42 volvo Студентик13, компилируется - еще не значит, что ра... 13.01.2006 13:53
klem4 по поводу "цикл без параметра" не понял,... 13.01.2006 14:42  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 8.08.2025 1:32 |