По введеному номеру месяца вывести название времени года,помогите пожалуйста..... сделать через PASCAL,оператор case
По введеному номеру месяца вывести название времени года,помогите пожалуйста..... сделать через PASCAL,оператор case
Ответ(ы) на вопрос:
var k:integer;
begin read(k); case k of 1..2,12: write('зима'); 3..5: write ('весна'); 6..8 : write ('лето'); 9..11: write ('осень'); end;
end.
var
n : integer;
begin
readln (n);
case n of
1, 2, 12 : writeln ('зима');
3, 4, 5 : writeln ('весна');
6, 7, 8 : writeln ('лето');
9, 10, 11 : writeln ('осень');
end;
end.
Не нашли ответ?
Похожие вопросы