Var
x, y: real;
b: boolean;
begin
Write('Введите через пробел координаты X,Y: ');
Readln(x, y);
{ рис 21 }
if y < 0 then b := false
else
if x <= 0 then b := (sqr(x) + sqr(y) <= sqr(3))
else b := (y <= 3 - x / 2);
Writeln(b);
{ рис 23 }
if (y<0) or (sqr(x)+sqr(y)>sqr(6)) then b:=false
else
if x<=0 then b:=true
else b:=(sqr(x)+sqr(y)>=sqr(3));
Writeln(b)
end.
Тестовое решение:
Введите через пробел координаты X,Y: 3.4 2
False
True
Var b,i,k,n: int64;
begin
readln(n);
b:=1;
for i := 1 to n do
b:=b*i;
writeln(b);
end.
Входные данные подставлять в переменную n
Алг
нач
цел максимальная, временная, временнаяДляЦикла
максимальная := -2147480000
нц для временнаяДляЦикла от 1 до 5
ввод временная
максимальная := int(max(временная, максимальная))
кц
вывод "Максимальное число: ", максимальная
кон