program noname;
uses crt;
var
x,y:real;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if (x>1) or (x<-1)or (y>1) or (y<-1) then
writeln('no')
else writeln('yes');
readkey;
end.
Программа находит сумма квадратов двух чисел, чтоб уьроенного меняешь только строку c= и пишешь c=a*3+b*3
<span>Вы идете по дороге в Типперери и доходите до развилки. Там вы встречаете двух человек. Вам известно, что один из них всегда говорит правду, а другой всегда лжет. Но вы не знаете, кто именно лжец, а кто правдолюбец. Чтобы узнать дорогу, вы можете задать только один вопрос только одному человеку. Какой это должен быть вопрос? -ДЕДУКЦИЯ
</span>
const
n = 5;
var
i, j, k: integer;
a: array[1..n] of integer;
p: boolean;
begin
randomize;
for i := 1 to n do
repeat
k := random(90) + 1;
j := 1;
p := True;
while p and (j < i) do
if a[j] = k then
p := False
else
j := j + 1;
if p then
a[i] := k;
until p = True;
for i := 1 to n do
write(a[i], ' ');
end.
