![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#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. Когда проверяю, ошибку выдает...... |
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
![]()
у меня работает.А что за ошибка у Вас?
P.s. Оформляйте код нажатием на кнопочку # на панели редактирования лучше вот так сделать Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
Последний раз редактировалось alex_fcsm; 11.03.2009 в 16:51. |
![]() |
![]() |
![]() |
#3 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
![]()
У меня все работает. Что за ошибка?
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
![]() |
![]() |
![]() |
![]() |
#5 | |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
![]() Цитата:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
|
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
![]()
Sazary
![]() Последний раз редактировалось aiktz; 11.03.2009 в 17:32. |
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
![]()
а сама программа правильно составлена?
|
![]() |
![]() |
![]() |
#8 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
![]()
Приложил рабочий исходник. Изменил только надписи (на транслит).
Сложно сказать, что у вас не так, т.к., как видите, у других работает.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
![]()
Спасибо огромное!
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
В ЧЕМ ОШИБКА? | 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 |