Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.
Тетрадь какого автора? Уточните задание.
Ноутбук. принтер. ток. кот. ещё есть трояк и каеф, но это вряд ли подойдёт.
Можно записать как:
s := 3,14 * r * r
или
s := pi * r * r
если есть константа числа пи
Import random
def solver():
while True:
key = random.randint(1,1000)
n = input('Введите начало множества: ')
m = input('Введите конец множества: ')
if m <= n or m<= 0 or n <= 0:
return False
if key in range(n,m):
print('YES')
print('число в диапазоне %i - %i' %(n,m))
else:
print('NO')
solver()