<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('Введите координаты точки:');
var r:=ReadReal('Введите радиус окружности:');
if (x*x+y*y<r*r) and (y<-x) then Writeln('Попадает')
else Writeln('Не попадает')
end.
<u>Примеры</u>
Введите координаты точки: -1.1 1.2
Введите радиус окружности: 2
Не попадает
Введите координаты точки: -1.1 0.8
Введите радиус окружности: 2
Попадает
Какую нужно таблицу? Ничего не понятно ((( Какой это вообще класс?
Var n,S,k:integer;
Begin
Write('n = ');ReadLn(n);
S:=0;
k:=0;
While n > 0 do
Begin
S:=S+n mod 10;
k:=k+1;
n:=n div 10
End;
WriteLn(k/S);
End.
local password = ""
math.randomseed(os.time())
local sum = {"a", "b", "c", "d", "s", "w", "#", "S", "P", "R", "E", "q", "m"} --Тут символы которые будут встречаться в пароле
local countSum = 8 --длина пароля
for i = 1, countSum do
password = password..sum[math.random(1, #sum)]
end
print("Пароль: "..password)
Алгоритм таков:
Подбирается случайный символ из массива и складывается с другими символами, которые были уже сгенерированы.