Вопрос по информатике:
Var A:integer; Begin Read(A); A:= A mod 12; if (A>=0)and(A<3) then Write('Зима'); if (A>2)and(A<6) then Write('Весна'); if (A>5)and(A<9) then Write('Лето'); if (A>8)and(A<=11) then Write('Осень'); End. Для чего нужно "A:= A mod 12" ??? Срочно
- 27.01.2018 04:03
- Информатика
- remove_red_eye 13138
- thumb_up 39
Ответы и объяснения 1
s: array[0..3] of string = ('зима','весна','лето','осень');
begin
write('месяц: '); readln(n);
if n in [1..12] then
begin
n:=n mod 12;
writeln(s[n div 3]);
end
else writeln('не верный ввод');
end.
месяц: 12
зима
месяц: 15
не верный ввод
- 28.01.2018 01:06
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.