Var
n: integer;
begin
write('Введите номер месяца (1-12): ');
readln(n);
case n of
1: writeln('1 января - Новый год; 7 января - Рождество Христово');
2: writeln('23 февраля - День защитника Отечества');
3: writeln('8 марта - Международный женский день');
5:
begin
writeln('1 мая - Праздник Весны и Труда;');
writeln('9 мая - День победы советского народа в Великой Отечественной войне 1941-19545 годов')
end;
6: writeln('12 июня - День России');
11: writeln('4 ноября - День народного единства')
end
end.
Тестовое решение:
Введите номер месяца (1-12): 6
12 июня - День России
1)
var n,min:integer;
begin
write('n = ');
readln(n);
min:=9;
while n>0 do
begin
if n mod 10 < min then min:=n mod 10;
n:=n div 10;
end;
writeln('min = ',min);
end.
Пример:
n = 24815
min = 1
2)
var n,k1,k2:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0;
while n>0 do
begin
if n mod 2=0 then k1:=k1+1 else k2:=k2+1;
n:=n div 10;
end;
if k1>k2 then writeln('кол-во четных больше чем нечетных цифр')
else if k2>k1 then writeln('кол-во нечетных больше чем четных цифр')
else writeln('количество четных равно количеству нечетных');
end.
Пример:
n = 1234
количество четных равно количеству нечетных
P4=n! это число перестановок в комбинаторике. ответ 24
#include<iostream>
using namespace std;
int main()
{
int n, P = 0, O = 0, N = 0, A;
cout << "n = ", cin >> n;
for(int i = 0; i < n; i++)
{
cin >> A;
if(A > 0) P++;
else if(A < 0) O++;
else N++;
}
cout <<"Chisla > 0: " << P;
cout <<"\nChisla < 0: " << O;
cout <<"\nChisla = 0: " << N;
return 0;
}
Пример работы программы:
n = 9
1 2 3 -4 -5 -6 -7 0 0
Chisla > 0: 3
Chisla < 0: 4
Chisla = 0: 2
Директор узнал то что это мог сделать 1 из 100 учеников
, а N до 100000.