Информатика, опубликовано 2018-08-22 20:04:54 by Гость
Написать программу, определяющую номер квартала по введеному номеру месяца, используя оператор case.
Ответ оставил Гость
Var a,i,k:integer;
begin
Writeln (Введи номер месяца);
Readln (k);
if (k>0) and (kcase k of
1..3: writeln (Первый квартал);
4..6: writeln (второй квартал);
7..9: writeln (третий квартал);
10..12: writeln (четвертый квартал);
End
else writeln (неверный ввод);
Readln;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на