Предмет: Информатика,
автор: Supremoskty
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" ??? Срочно
Ответы
Автор ответа:
0
var n: integer;
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
не верный ввод
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
не верный ввод
Похожие вопросы
Предмет: Физика,
автор: jannurkoken
Предмет: История,
автор: ne087
Предмет: Химия,
автор: faraaleth
Предмет: Физика,
автор: 4iburek
Предмет: Литература,
автор: Ярославна051