Расловлев 26 ноября 2019 в 12:32
Составить программу, которая по номеру месяца, введенного с клавиатуры, выводит количество дней в нем. В программе учесть количество дней в феврале для високосного и не високосного годов
Составить программу, которая по номеру месяца, введенного с клавиатуры, выводит количество дней в нем. В программе учесть количество дней в феврале для високосного и не високосного годов
Var
a: array[1..12] of string;
i: integer;
begin
a[1] := 31;
a[2] := 28 или 29;
a[3] := 31;
a[4] := 30;
a[5] := 31;
a[6] := 30;
a[7] := 31;
a[8] := 31;
a[9] := 30;
a[10] := 31;
a[11] := 30;
a[12] := 31;
readln(i);
writeln(a[i]);
end.
a: array[1..12] of string;
i: integer;
begin
a[1] := 31;
a[2] := 28 или 29;
a[3] := 31;
a[4] := 30;
a[5] := 31;
a[6] := 30;
a[7] := 31;
a[8] := 31;
a[9] := 30;
a[10] := 31;
a[11] := 30;
a[12] := 31;
readln(i);
writeln(a[i]);
end.
Компьютеры и вычисления
336
0
Для комментирования необходимо зарегистрироваться на сайте