Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.09.2016, 18:49   #1
[Adelina]
Новичок
Джуниор
 
Регистрация: 26.09.2016
Сообщений: 1
По умолчанию Трудности с задачей ( case of )

Приветствую всех. В общем, задали задание на учёбе, а сама я не очень понимаю как его сделать.
Вот собственно задание :
Вводится число программ N<=10. Напечатать фразу "Я разработал N программ", согласовав слово "программа" с числом N. Предусмотреть ситуацию ввода N<0.
Буду благодарна каждому, кто поможет.
Всем удачного дня.
[Adelina] вне форума Ответить с цитированием
Старый 27.09.2016, 07:16   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
if n<0 then writeln('n<0') else begin
case n of
1: o:='у';
2,3,4: о:='ы';
0,5..10: o:=' ';
end;
writeln('я разработал ',n,' программ',o);
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 27.09.2016 в 08:20.
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Трудности с копированием. mirovlad Microsoft Office Word 2 29.03.2015 00:06
Перемещение из case 1 в case 2(switch(), язык Си) Павел_95 Помощь студентам 13 11.01.2013 14:18
C# и Java трудности. LaiQue Общие вопросы .NET 0 24.04.2010 15:50
Трудности перевода Elidan Общие вопросы C/C++ 0 10.06.2009 01:49
Трудности перевода Maks1978 Свободное общение 6 30.05.2008 12:55