1
x = int(input())
if(x >= 100 and x <= 999):
print("Число трехзначное")
else: print("Число НЕ трехзначное")
2
month = int(input())
if(month >= 1 and month <= 12):
if(month == 1 or month == 3 or month == 5 or month == 7 or month == 8
or month == 10 or month == 12):
print(31)
elif(month == 2):
print(28)
else: print(30)
else: print("Неверно введеный номер месяца!")
3
from sys import exit
month = int(input("Месяц: "))
day = int(input("День: "))
remainder = 0
if(month >= 1 and month <= 12):
if(month == 1 or month == 3 or month == 5 or
month == 7 or month == 8 or month == 10 or month == 12):
if(day >= 1 and day <= 31):
pass
else: print("Неверно введены дни месяца!"); exit();
elif(month == 2):
if(day >= 1 and day <= 28):
pass
else: print("Неверно введены дни месяца!"); exit();
else:
if(day >= 1 and day <= 30):
pass
else:
print("Неверно введены дни месяца!"); exit();
for i in range(1, month+1):
if(i == 1 or i == 3 or i == 5 or i == 7 or i == 8
or i == 10 or i == 12):
remainder += 31
elif(i == 2):
remainder += 28
else: remainder += 30
remainder += day
print("До нового года осталось: " + str(365 - remainder))
else: print("Неверно введеный номер месяца!")
4
month = int(input())
if(month >= 1 and month <= 12):
if(month == 12 or month == 1 or month == 2):
print("Winter!")
elif(month == 3 or month == 4 or month == 5):
print("Spring!")
elif(month == 6 or month == 7 or month == 8):
print("Summer!")
elif(month == 9 or month == 10 or month == 11):
print("Autumn!")
else: print("Wrong number of month!")
Программа Pascal:
var ag,x,x1,s1,s2,sp:integer;
a1,a2:array[0..3] of integer;
begin
while (a1[0]=a1[1]) or (a1[1]=a1[2]) or (a1[2]=a1[3]) or (a1[3]=a1[0]) or (a1[1]=a1[3]) or (a1[2]=a1[0]) do
begin
x:=random(8999)+1000;
ag:=10000;
for var i1:=0 to 3 do
begin
a1[i1]:= (x mod ag) div (ag div 10);
ag:=ag div 10;
end;
end;
while x<>x1 do
begin
x1:=0;
while (x1<1000) or (9999<x1) do
begin
writeln; write('Введите 4ехзначное число = '); readln(x1);
end;
ag:=10000;
for var i2:=0 to 3 do
begin
a2[i2]:= (x1 mod ag) div (ag div 10);
ag:=ag div 10;
end;
s1:=0;
if (a2[0]=a1[0]) then s1:=s1+1;
if (a2[1]=a1[1]) then s1:=s1+1;
if (a2[2]=a1[2]) then s1:=s1+1;
if (a2[3]=a1[3]) then s1:=s1+1;
writeln('Число быков = ',s1);
s2:=0;
if (a2[0]=a1[0]) or (a2[0]=a1[1]) or (a2[0]=a1[2]) or (a2[0]=a1[3]) then s2:=s2+1;
if (a2[1]<>a2[0]) or (a2[1]<>a2[2]) or (a2[1]<>a2[3]) then
if (a2[1]=a1[0]) or (a2[1]=a1[1]) or (a2[1]=a1[2]) or (a2[1]=a1[3]) then s2:=s2+1;
if (a2[2]<>a2[0]) or (a2[2]<>a2[1]) or (a2[2]<>a2[3]) then
if (a2[2]=a1[0]) or (a2[2]=a1[1]) or (a2[2]=a1[2]) or (a2[2]=a1[3]) then s2:=s2+1;
if (a2[3]<>a2[0]) or (a2[3]<>a2[1]) or (a2[3]<>a2[2]) then
if (a2[3]=a1[0]) or (a2[3]=a1[1]) or (a2[3]=a1[2]) or (a2[3]=a1[3]) then s2:=s2+1;
writeln('Число коров = ',s2-s1);
sp:=sp+1;
writeln('Попытка ',sp);
end;
writeln; write('ПОЗДРАВЛЯЮ, ВЫ УГАДАЛИ ЧИСЛО!');
end.
