Var month: array[1..12]of string[10]=
(' январь ',' февраль ',' март ',' апрель ',' май ',' июнь ',
' июль ',' август ',' сентябрь ',' октябрь ',' ноябрь ',' декабрь ');
procedure p(s:string);
begin
writeln(s);
end;
var N_M:integer;
begin
writeln(' введи номер месяца ');
readln(N_M);
case N_M of
1..12: p(month[N_M]);
else p(' такого месяца нет ');
end;
case N_M of
1,3,5,7,8,10,12: p(' 31 день ');
4,6,9,11: p(' 30 дней ');
2: p(' 28 дней ');
end;
case N_M of
12,1,2: p(' зима');
3,4,5: p(' весна');
6,7,8: p(' осень');
9,10,11: p(' лето');
end;
end.
Пример:
<span> введи номер месяца
5
май
31 день
весна</span>
Const
<span>n=10; </span>
<span>var a:array[1..n] of integer; </span>
<span>s,p,k,i:integer; </span>
<span>begin </span>
<span>s:=0; </span>
<span>p:=1; </span>
<span>randomize; </span>
<span>for i:=1 to n do begin </span>
<span>a[i]:=Random(100); </span>
<span>if (a[i]>0) and (a[i] mod 3 =0) then k:=k+1; </span>
<span>p:=p*a[i]; </span>
<span>s:=s+a[i]; </span>
<span>write(a[i], ' ') </span>
<span>end; </span>
<span>writeln('Сумма = ',s); </span>
<span>writeln('Произведение = ',p); </span>
<span>writeln('Количество положительных и кратных 3-м = ',k); </span>
<span>end.</span>
1) с = 2 + 12 = 14
2) с = 1 + 14 = 15
3) с = 1
Файл - это поименованная информация на диске.
Решение в прикрепленном файле.