Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
<span>Это мы не проходили,
Это нам не задавали</span>!
А квадратное уравнение решаемо =)
var a, b, c, d, x1, x2: real;
begin
readln(a, b, c);
d := b * b - 4 * a * c;
if d >= 0 then begin
if d <> 0 then begin
x1 := (-b + sqrt(d)) / 2 * a;
x2 := (-b - sqrt(d)) / 2 * a;
writeln('x1 = ', x1:4:2, ', x2 = ', x2:4:2)
end
else begin
x1 := -(b / 2 * a);
writeln('x = ', x1:4:2)
end
end
else begin
writeln('Нет решения');
end
end.
Удачи тебе с остальными)
Кітапта ұлы ғұлама қоғам туралы айтқан. Қалалардың өзін ізгі және наджран деп екіге бөледі. Бұл қалалардың халқы бас пайдасын жұрт мүддесінен жоғары ең асыл ләззаты байбақта. На ауызбірлік в тексте найди
1)Переменная y в данном случае не меняется, значит y = 28 .
2)Переменная x изменилась на 28 , следовательно x = 7-28; x = - 21.
Составим выражение для проверки:
7 = -21 + 28
7 = 7 верно.