Var n,m,i:integer;
begin
writeln('n=');
readln(n);
writeln('m=');
readln(m);
if n>m then begin
for i:=m to n do
writeln (i,' в квадрате равно ',i*i);
end
else
writeln('n<m');
<span>end.</span>
Ответ С,2
пояснение выделяла то что ВЕРНО
А)1 место заняла Алла-, а Рита оказалась 3
В) 5 была Вика, Нина 1
С) 1 место заняла Соня, Вика 2
Д) Рита 5, а Нина была предпоследней (4)
Е) Да, Нина была 4, – Алла 1
итак девушки заняли места 1 место Соня, 3 Рита, ; 4 Нина, 5 Вика осталось 2 место незанятое и заняла Алла,
<span>mas = []
N = int(input("Количество элементов в массиве: "))
if ( N <= 35 ) and ( N > 0)<span>:
</span> for x in range(N+1)<span>:
</span> mas.append(x)
a = mas.copy()
i = <span>0
</span>print(a,'\n')
B = int(input("На скільки елементів зробити зсув?: "))
if (B <= N)<span>:
</span> print(mas)
while i < B<span>:
</span> i += <span>1
</span> b = a.pop()
c = a.insert(0,b)
print(a)
else<span>:
</span> print(False)</span>
var x0, y0, r0, x1, x2:real;
begin
readln(x0,y0,r0);
// уравнение окружности: (x-x0)^2+(y-y0)^2=r0^2
if r0*r0-y0*y0>=0 then
begin
x1:=-sqrt(r0*r0-y0*y0)+x0;
x2:=sqrt(r0*r0-y0*y0)+x0;
writeln('Точки пересечения: x1 = ',x1:4:2,' x2 = ',x2:4:2);
end
else writeln('Не пересекается');
end.
Пример:
1 1 2
Точки пересечения: x1 = -0.73 x2 = 2.73