25.12.2010, 23:57 | #1 (permalink) |
Member
Регистрация: 25.12.2010
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ветвление
2) Числа a, b, c обозначают дату. Проверить корректность этой даты. |
26.12.2010, 09:16 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Разумеется, на столь вежливую просьбу грех не откликнуться. Пожалуйста: Код:
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. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|