Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Алгоритмы многоальтернативного ветвления

Автор: -Bob- 13.12.2005 23:57

3. Для целого числа k от 1 до 99 вывести на экран фразу «Мне k лет», учитывая при этом, что при некоторых значениях k слово «лет» надо заменить на слово «год» или «года». Например, 11 лет, 22 года, 51 год.

Автор: klem4 14.12.2005 0:18

Вот такой вариант 1-99

uses crt;
var
   i : byte;
   s : string;

begin

   clrscr;

   for i := 1 to 99 do begin
    if (i mod 10 = 1) and (i<>11) then s := 'год'
     else if (i mod 10 in [2,3,4]) and not(i div 10 = 1) then s := 'года'
      else s := 'лет';
    writeln('Мне ',i,' ' + s);
   end;


   readln

end.

Автор: volvo 14.12.2005 0:28

klem4
Поиск для красоты? mad.gif Сколько раз еще будешь одно и то же решать?

http://forum.pascal.net.ru/index.php?s=&showtopic=4713&view=findpost&p=39117

Автор: klem4 14.12.2005 0:32

Хы .. поиск-то не для красоты smile.gif Вот только вопрос : какой ты запрос в поиске задал ? blink.gif