|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.03.2009, 16:41 | #1 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
скажите, в чем ошибка?
Условие:
Дано натуральное число n (n<=100), определяющее возраст человека (в годах). Дать для этого числа наименования "год", "года", "лет". Program reg; var V:string; a,y,n:integer; begin Writeln ('Введите возраст'); readln (n); a:=(n div 10); y:=n-a*10; if (y>=5) and (y<=10) or (y=0) or (n>=11) and (n<=14) then V:='лет' else if (y=1) then V:='год' else if (y>=2) and (y<=4) then V:='года'; writeln ('вам ',n,' ',V); readln; end. Когда проверяю, ошибку выдает...... |
11.03.2009, 16:46 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
у меня работает.А что за ошибка у Вас?
P.s. Оформляйте код нажатием на кнопочку # на панели редактирования лучше вот так сделать Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
Последний раз редактировалось alex_fcsm; 11.03.2009 в 16:51. |
11.03.2009, 16:48 | #3 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
У меня все работает. Что за ошибка?
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
11.03.2009, 17:11 | #4 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
|
11.03.2009, 17:14 | #5 | |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Цитата:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
|
11.03.2009, 17:29 | #6 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
Sazary
Последний раз редактировалось aiktz; 11.03.2009 в 17:32. |
11.03.2009, 17:35 | #7 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
Sazary
а сама программа правильно составлена?
|
11.03.2009, 17:36 | #8 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Приложил рабочий исходник. Изменил только надписи (на транслит).
Сложно сказать, что у вас не так, т.к., как видите, у других работает.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
11.03.2009, 17:40 | #9 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
Sazary
Спасибо огромное!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
В ЧЕМ ОШИБКА? | salmanbaz | Общие вопросы C/C++ | 5 | 11.01.2009 13:21 |
В чем ошибка? | fosto | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 07.12.2008 19:10 |
Скажите, в чем моя ошибка в сортировке, или напишите, как правильно сортировать. язык Паскаль. | Devo4ka | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 26.11.2008 00:19 |
В чем ошибка!!! | juden | Общие вопросы Delphi | 12 | 10.03.2008 08:53 |
в чем ошибка? | Lonix | Общие вопросы Delphi | 2 | 24.03.2007 09:41 |