Var
i,x:integer;
sr:real;
begin
sr:=0;
for i:=1 to 4 do
begin
write('Оценка за задачу №',i,' ');
readln(x);
sr:=sr+x;
end;
sr:=sr/4;
write('Средняя оценка ',Round(sr));
End.<span>
</span>
Вот в таком виде работает, чуть поправил список
в операторах writeln
program example;
var
t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<26 do
begin
n:=n+2;
writeln(t,n:6);
t:=t+3
end
end.
t n
3 3
6 5
9 7
12 9
15 11
18 13
21 15
24 17
1-4
2-3
3-1
4-4
5-2
6-4
7 - 64+32+1=97
8 - 15
9 - 563124
10 - на 5
11 - 5 нижних
Можно составить уравнение окружности, посчитав радиус: x^2 + y^2 = 36 (6^2). И если сумма слева будет меньше или равна 36, то точка будет лежать внутри круга. Но у нас ещё первая четверть не закрашена. В таком случае либо x <= 0 (а y может иметь любой знак), либо наоборот.
Итак, решение (на Паскале):
var
x, y: real;
begin
writeln('Введите координаты точки x и y соответственно:');
readln(x, y);
if (x <= 0) or (y <= 0) then
if x * x + y * y <= 36 then
writeln('Принадлежит')
else
writeln('Не принадлежит')
else
writeln('Не принадлежит')
end.
Вот тебе решение первогого и второго задания