1) c e i
2) a2 b1 c1 d 2 e1
3) a)
program v7;
var v:integer;
begin
v:=7
end.
b)
program z30;
var z:integer;
z:= z + 30;
4) a)
program name;
write("Тут пиши своё имя")
b) program num4;
write(400)
5) a3 b2 c4 d1
6) хз надо исправлять ошибки или нет, но вот неправильные, которые вызовут ошибку
a c d
7) 2
8) 3 5 6 11 9 4 1 8 7 10 2
9) var a:integer; b,c,x:real;
a:=7; b:=3; c:= a+b;
writeln('summa=',c);
c:= c/2; x:= a-c;
writeln('x=',x,' ','kvadrat=',x*x);
На экран выйдет summa = 10.2
х = 1.9 kvadrat = 3.61
INP = input().split(' ')
data=[]
search_for=0
for i in range(int(INP[0])-1):
data.append([])
data[i]=(input().split(' '))
ask = input().split(' ')
for i in range(len(ask)):
if int(ask[i]) == 1:
print(1)
else:
# Search job
for j in range(len(data)):
if int(data[j][1]) == int(ask[i]):
search_for = int(data[j][0])
break
# Count
k=0
if int(data[j][0]) == search_for:
k+=1
print(k)
Объяснение:
1) c e i
2) a2 b1 c1 d 2 e1
3) a)
program v7;
var v:integer;
begin
v:=7
end.
b)
program z30;
var z:integer;
begin
z:= z + 30;
end.
4) a)
program name;
begin
write("Тут пиши своё имя")
end.
b) program num4;
begin
write(400)
end.
5) a3 b2 c4 d1
6) хз надо исправлять ошибки или нет, но вот неправильные, которые вызовут ошибку
a c d
7) 2
8) 3 5 6 11 9 4 1 8 7 10 2
9) var a:integer; b,c,x:real;
begin
a:=7; b:=3; c:= a+b;
writeln('summa=',c);
c:= c/2; x:= a-c;
writeln('x=',x,' ','kvadrat=',x*x);
end.
На экран выйдет summa = 10.2
х = 1.9 kvadrat = 3.61
INP = input().split(' ')
data=[]
search_for=0
for i in range(int(INP[0])-1):
data.append([])
data[i]=(input().split(' '))
ask = input().split(' ')
for i in range(len(ask)):
if int(ask[i]) == 1:
print(1)
else:
# Search job
for j in range(len(data)):
if int(data[j][1]) == int(ask[i]):
search_for = int(data[j][0])
break
# Count
k=0
for j in range(len(data)):
if int(data[j][0]) == search_for:
k+=1
print(k)
Объяснение: