Бесконечнре число раз так как i всегда >0
Sub Main() Dim x As Single Dim y As Single
Console.WriteLine("Введите координаты точки x ") x = Console.ReadLine() Console.WriteLine("Введите координаты точки y ") y = Console.ReadLine() If (x <= 4 And y <= 4 And y >= 4 - x) Or (y <= -4 - x And y >= -4 And x >= -4) Then Console.WriteLine("Точка принадлежит области") Else Console.WriteLine("Точка не принадлежит области") End If Console.ReadKey() End Sub
<span>HCA +
AEA - (совпадает 1 и 3)
DAH +
ECC - </span>(совпадает 2 и 3)<span>
EEH +
ADE - (Е в конце нельзя)
CEA - (С в начале нельзя)
AED - (D в конце нельзя)
EHA - </span>(Н в середине нельзя)
Ответ: 3
Var x, y, a, nod:integer;
nok:real;
begin
readln(x,y);
a:=x*y;
repeat if x > y then x:=x mod y
else y:=y mod x
until x*y=0;
nod:=x+y;
writeln(nod);
nok:=a/nod;
writeln(nok);
end.
var i,res,k:integer;
a:array[1..10] of integer;
begin
k:=0;
for i:=1 to 10 do
a[i]:=random(10,50);
res:=1;
for i:=1 to 10 do
if (a[i] mod 2=1) and (a[i] mod 5=0) then begin
res:=res*a[i];
k:= k+1;
end;
if k=0 then write('Таких чисел нет') else
write(res);
end.