Определите, какое количество стран имеет площадь земель меньше 1500000 Га
Найдите наибольший процент площади лесов от площади земель среди всех стран с точностью до двух знаков после запятой
Постройте круговую диаграмму, отображающую соотношение числа приведенных в таблице стран в частях света "Европа", "Азия", "Австралия и Океания"
Объяснение:
1) Var
m: array [1..10, 1..10] of integer;
i,j,c:integer;
Begin
For i:=1 to 4 do
For j:=1 to 8 do
read(m[i,j]);
For i:=1 to 4 do
For j:=1 to 8 do
Begin
m[i,j]:=m[i,j]*m[i,j];
end;
For i:=1 to 4 do
Begin
For j:=1 to 8 do
write(m[i,j],' ');
writeln
end;
end.
2)Var
m: array [1..10, 1..10] of integer;
i,j,c:integer;
Begin
For i:=1 to 6 do
For j:=1 to 5 do
read(m[i,j]);
For i:=1 to 6 do
For j:=1 to 5 do
Begin
m[i,j]:=-1*m[i,j];
end;
For i:=1 to 6 do
Begin
For j:=1 to 5 do
write(m[i,j],' ');
writeln
end;
end.
from random import*
def kratnye(chuslo,spysok,chusla,sluchay):
while(chuslo!=0):
chuslo=int(input("Введите число"))
if(chuslo>0):
spysok.append(chuslo)
else:
if(sluchay<5):
for x in spysok:
if(x/5 in range(1,1000,1)):
chusla=chusla+1
print("Чисел, которые делятся на 5:",chusla-1)
elif(sluchay>5):
for x in spysok:
if(x/9 in range(1,1000,1)):
chusla=chusla+1
else:
continue
print("Чисел, которые делятся на 9:",chusla-1)
a=int(input("Напишите 1 чтобы начать, 0 чтобы закончить программу"))
b=[]
c=1
d=randint(1,11)
kratnye(a,b,c,d)