По заданному знаку зодиака вывести период времени

@Руслан133 · Регистрация: 12.12.2015

Author24 — интернет-сервис помощи студентам

По заданному знаку зодиака вывести период времени.пусть знак зодиака будет рыбы

@Joy · 27.01.2016, 10:30

Добавлено через 14 минут

Pascal

begin
  var s:=ReadString('Введите знак зодиака:');
  case UpperCase(s) of 
    'ОВЕН':writeln('21 марта - 19 апреля');
    'ТЕЛЕЦ':writeln('20 апреля - 20 мая');
    'БЛИЗНЕЦЫ':writeln('21 мая - 20 июня');    
    'РАК':writeln('21 июня - 22 июля');    
    'ЛЕВ':writeln('23 июля - 22 августа');     
    'ДЕВА':writeln('23 августа - 22 сентября');
    'ВЕСЫ':writeln('23 сентября - 22 октября');
    'СКОРПИОН':writeln('23 октября - 21 ноября');    
    'СТРЕЛЕЦ':writeln('22 ноября - 21 декабря');    
    'КОЗЕРОГ':writeln('22 декабря - 19 января');     
    'ВОДОЛЕЙ':writeln('20 января - 18 февраля');
    'РЫБЫ':writeln('19 февраля - 20 марта');
    else writeln('Нет такого знака');
  end;
end.

@Руслан133 0 / 0 / 0 Регистрация: 12.12.2015 Сообщений: 7
		1
	По заданному знаку зодиака вывести период времени 26.01.2016, 17:33. Показов 1381. Ответов 1 Метки turbopascal (Все метки) По заданному знаку зодиака вывести период времени.пусть знак зодиака будет рыбы 0

	27.01.2016, 10:30

Опции темы

По заданному знаку зодиака вывести период времени

Решение