Надо написать задачи в "Паскале". Помогите пожалуйста!
Надо написать задачи в "Паскале". Помогите пожалуйста!
Гость
Ответ(ы) на вопрос:
Гостьvar m:real;
begin
write('введите месяц : ');
readln(m);
if ((m/3 <1) or (m=12)) then write('зима');
if ((m/3 <2) and (m/3 >=1)) then write('весна');
if ((m/3 <3) and (m/3 >=2)) then write('лето');
if ((m/3 <4) and (m/3 >=3)) then write('осень');
end.
Гостьнаверное так
var
m: integer;
begin
write('Введите номер месяца -> ');
readln(m);
case m of
12, 1, 2: write('Это зима');
3, 4, 5: write('Это весна');
6, 7, 8: write('Это лето');
9, 10, 11: write('Это осень');
else write('Месяца с таким номером не существует');
end;
end.
Не нашли ответ?
Похожие вопросы