Определить время года по названию месяца

@Lana_T · Регистрация: 26.05.2013

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

Помогите, пожалуйста! не могу найти ошибку!

Pascal

program sezon;
var m, vesna, leto, zima, osen, oshibka: byte;
begin
writeln('введите месяц');
readln(m);
case m of 
12, 1, 2: writeln (zima);
3, 4, 5: writeln (vesna);
6, 7, 8: writeln (leto);
9, 10, 11: writeln (osen);
m<>1..12: writeln (oshibka);
end;
readln;
end.

@Puporev · 27.05.2013, 17:33

Pascal

program sezon;
var m, vesna, leto, zima, osen, oshibka: byte;
begin
writeln('ââåäèòå ìåñÿö');
readln(m);
case m of
12, 1, 2: writeln ('zima');
3, 4, 5: writeln ('vesna');
6, 7, 8: writeln ('leto');
9, 10, 11: writeln ('osen');
else writeln ('oshibka');
end;
readln;
end.

@chizz · 27.05.2013, 17:33

А что программа должна делать?
Вы никак не инициализируете переменные zima, leto и т.д

@chizz 993 / 521 / 102 Регистрация: 19.03.2013 Сообщений: 3,114 Записей в блоге: 19
	27.05.2013, 17:33	3
	А что программа должна делать? Вы никак не инициализируете переменные zima, leto и т.д 0

Опции темы