Var x,y,i:integer;
begin
writeln('x':3,'y':5);
for i:=1 to 7 do
begin
x:=random(-4,7);
y:=x*x+1;
writeln(x:3,y:5);
end;
<span>end.</span>
program crash;
var n, k: integer;
r: real;
begin
write('n = ');
readln(n);
k := 0;
r := 0;
while n > 0 do
begin
k := k + 1;
r := r + (n mod 10) / (k * k);
n := n div 10
end;
writeln('r = ', r:0:14);
readln
end.
В таких задачах необходимо математически сформулировать условия, которые строго ограничат выбранную область. Из рисунка видно, что x не может быть отрицательным (x >= 0), x <= 6, y <= 6. Также в первой четверти область ограничена окружностью, тут уже сложнее, если мне не изменяет память, то x*x+y*y<=6 (6 это радиус окружности). В четвертой четверти область задается уравнением прямой, и я совершенно не помню как они составляются (y = kx + b вроде?), поэтому ваша задача самостоятельно разобраться с этой прямой, условие будет вида y>=k*x+b.
Когда условия будут сформулированы, останется лишь записать программу, примерный вид программы будет следующим:
var x,y : integer;
begin
readln(x,y);
if (x >= 0) and (x <= 6) and (y <= 6) and (x*x+y*y <= 6) {and (еще одно условие)}
writeln('true')
else
writeln('false');
readln;
end.
№9 1-А, 2-Б, 3-В,..., 31-Э, 32-ю, 33-Я
33 2114632 12165101816312030 1015221618141241032.
Если для пробела предусмотреть числовой код, то зашифрованный текст был бы записан без пропусков.
№10
353622140534361800011621002132362036101523161814002510051144360036213140
№11
что? где? когда?