Составьте программу, которая в зависимости от введенного номера ...

@Jet1k · Регистрация: 05.12.2009

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

Составьте программу, которая в зависимости от введенного номера месяца выводит название сезона, к которому он относится.

Спасибо.

@solidus1991 · 10.12.2009, 19:53

Сообщение от Jet1k

Спасибо.

Pascal

Program vremena;
uses crt;
var mesyac:integer;
begin
writeln('<<< ОПРЕДЕЛЕНИЕ СЕЗОНА ГОДА >>>':40);
writeln;
TextColor(Black);
write('Введите номер месяца: ');
readln (mesyac);
writeln;
TextColor(blue);
Case mesyac of
     1,2,12:begin TextColor(blue);writeln('Брр, Зима!') end;
     3..5:begin TextColor(blue);writeln('Весна') end;
     6..8:begin TextColor(blue);writeln(':D Лето!') end;
     9..11:begin TextColor(blue);writeln('Осень :(') end;
end;
end.

@Тамила · 10.12.2009, 19:55

Pascal

uses crt;
var
n:integer;
begin clrscr;
write('vvedite nomer mesyaca -> ');
read(n);
if (n=1) or (n=2) or (n=12) then writeln('ZIMA');
if (n=3) or (n=4) or (n=5) then writeln('VESNA');
if (n=6) or (n=7) or (n=8) then writeln('LETO');
if (n=9) or (n=10) or (n=11) then writeln('OSEN');
readkey;
end.

@WolfCF · 10.12.2009, 19:58

Не по теме:

solidus1991,позитивные ответы

Добавлено через 2 минуты
solidus1991, зиму можно было синим цветом, весну светлозеленым, лето зеленым, осень желтым цветом сделать.

@Jet1k 1 / 1 / 0 Регистрация: 05.12.2009 Сообщений: 20
		1
	Составьте программу, которая в зависимости от введенного номера ... 10.12.2009, 19:44. Показов 1676. Ответов 3 Метки нет (Все метки) Составьте программу, которая в зависимости от введенного номера месяца выводит название сезона, к которому он относится. Спасибо. 0

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	10.12.2009, 19:58	4
	Не по теме: solidus1991,позитивные ответы Добавлено через 2 минуты solidus1991, зиму можно было синим цветом, весну светлозеленым, лето зеленым, осень желтым цветом сделать. 0