Ответ:Как то так
Объяснение:
m = int(input("Введите месяц: "))
d = int(input("Введите день: "))
while d <= 31:
print("Месяц: " + str(m),"День: " + str(d))
d += 7
if m == 9 and d > 30:
m = 10
d -= 30
if m == 10 and d > 31:
m = 11
d -= 31
if m == 11 and d > 30:
m = 12
d -= 30
if m == 10 and d > 31:
m = 11
d -= 31
if m == 11 and d > 30:
m = 12
d -= 30
if m == 11 and d > 30:
m = 12
d -= 30
Предложенные фрагменты программы должны выполнять нахождение и вывод абсолютной величины суммы первых 1, 2, ...8 элементов массива А - всего 8 сумм. В реальности будут восемь раз выведены нули, потому что отсутствует фрагмент, в котором элементам массива А присваиваются какие-либо значения.
Блок-схемы достаточно одной, потому что все три фрагмента определяют одни и те же шаги алгоритма.
1. Pascal
var
A: array[1..100] of integer;
N, I, J: integer;
S: real;
begin
N := 8;
for I := 1 to N do
begin
S := 0;
for J := 1 to I do S := S + A[J];
S := abs(S);
writeln('S=', S:9:2)
end;
readln;
end.
2. QBASIC
DEFINT I-J, N, S
DIM A(100) AS INTEGER
N = 8
FOR I = 1 TO N
S = 0
FOR J = 1 TO I
S = S + A(J)
NEXT J
S = ABS(S)
PRINT S
NEXT I
END
3. Школьный АЯ (КуМИР)
алг слово(рез вещ s)
нач
цел таб A[1:100]
цел n,I,j
n:=8
нц для I от 1 до n
s:=0
нц для j от 1 до I
s:=s+A[j]
кц
s:=abs(s)
вывод s
кц
<span>кон</span>
def f(n):
for i in range(2, int(n ** 0.5) + 1):
if n % i == 0: return False
return True
uses crt;
var
a:array [1..100,1..100] of real;
n,m,k:integer;
begin
clrscr;
randomize;
write('N='); read(n);
write('M='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100)-50;
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:= 1 to n do
begin
k:=0;
for m:= 1 to m do
begin
if a[n,m]<0 then
k:=k+1;
end;
writeln('К<span>ол-во отрицательных элементов '</span><span>,n</span><span>,</span><span>' строки: '</span>,k);
end;
end.
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
writeln ((x>=-2)and(x<=2)and(y>=0)and(y<=4)or
(x>=-4)and(x<=5)and(y<=0)and(y>=-3));
end.
Пример:
<span>x = 3
y = -1
True</span>