Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 25.12.2010, 23:57   #1 (permalink)
Ксения)777)
Member
 
Регистрация: 25.12.2010
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Ветвление

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

2) Числа a, b, c обозначают дату. Проверить корректность этой даты.
Ксения)777) вне форума   Ответить с цитированием
Старый 26.12.2010, 09:16   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Ксения)777) Посмотреть сообщение
1) Для целого числа k от 1 до 99 напечатать фразу “Мне k лет”, учитывая при этом, что при некоторых значениях k слово “лет” надо заменить на слово “год” или “года”. Например, 11 лет, 22 года, 51 год.

2) Числа a, b, c обозначают дату. Проверить корректность этой даты.
И Вам добрый день, и с наступающим!
Разумеется, на столь вежливую просьбу грех не откликнуться. Пожалуйста:
Код:
VAR
 k:Byte;

BEGIN
 Write('Сколько мне лет? ');
 ReadLn(k);
 Write('Мне ',k);
 If ((k>10) and (k<15)) or ((k mod 10)>4) and ((k mod 10)<=9) or ((k mod 10)=0) then
  Write(' лет') else
 If ((k mod 10)>1) and ((k mod 10)<5) then
  Write(' года') else Write(' год');
 WriteLn;
 ReadLn;
END.
Код:
VAR
 a,b,c:WORD;
BEGIN
 Write('a (date) = ');
 Readln(a);
 Write('b (month) = ');
 Readln(b);
 Write('c (year) = ');
 Readln(c);
 If (b=0) or (b>12) or (a=0) or (c=0) then
   Writeln('Not correct!')
 else
  Case b of
   1,3,5,7,8,10,12: if a>31 then Writeln('Not correct!') else Writeln('Correct');
   4,6,9,11: if a>30 then Writeln('Not correct!') else Writeln('Correct');
   2: if ((((c mod 4)>0) or (((c mod 100)=0) and ((c mod 400)>0))) and (a>28))
      or (a>29) then Writeln('Not correct!') else Writeln('Correct');
  end;
 ReadLn;
END.
Какие еще будут распоряжения?
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 18:48.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.