Security 360 - Антивирусная программа для ПК
Var a: string;
s: integer;
begin
s := 0;
write ('Привет! Введи пароль: ');
readln (a);
while a<>'qwerty' do
begin
s := s+1;
write ('Не угадал! Введи пароль: ');
readln (a)
end;
writeln ('Теперь пароль введён верно! Количество попыток: ',s)
end.
<span>function Power(x,y:real):real;
{ (C) Puporev }
begin
if x=0 then
Power:=0
else
if x>0 then
Power:=exp(ln(x)*y)
else
Power:=-exp(ln(abs(x))*y);
end;
var
x,y:real;
begin
readln(x,y);
writeln(power(x,y));
end<span>.</span></span>