1 Определите значение переменных после выполнения фрагмента программы (в тетради привести трассировочную таблицу):
а) s:=;
для i:=от 0 до 5 Сделайте s:=s+i;
б) n:=1;
s:=1;
для i:=2 до n сделайте s:=s+1*i;
в) n:=1;
s:=1;
для i:=от 1 до 3 do
s:=s+1 / n;
n:=n+2;
d) n:=1;
s:=1;
для i:=от 1 до 3 do
начать
s:=s+1/n;
n:=n+2;
конец;
4 Напишите программу, которая по двум натуральным числам a и b, не
превосходящим 30000, подсчитывает количество натуральных чисел, кратных
10, на отрезке [a, b].

1. Ну я не знаю какая часть фигуры закрашена. Будем считать что прямоугольник находиться в окружности и необходимо из площади курга вычесть площадь прямоугольника.
const
p =3.14;
var
a,b,r,s1,s2:real;
begin
Writeln('Введите длины сторон прямоугольника');
readln(a,b);
Writeln('Введите радиус окуржности');
Readln(r);
s1:=a*b;
s2:=p*sqr(r);
Writeln('Площадь закрашеной окружности = ', s2-s1);
end.

Если закрашена какая-то другая область то можете просто изменить действие с площадями в предпоследней строчке ( в данном случае мы из s2 вычитаем s1).

1. Ну я не знаю какая часть фигуры закрашена. Будем считать что прямоугольник находиться в окружности и необходимо из площади курга вычесть площадь прямоугольника.
const
p =3.14;
var
a,b,r,s1,s2:real;
begin
Writeln('Введите длины сторон прямоугольника');
readln(a,b);
Writeln('Введите радиус окуржности');
Readln(r);
s1:=a*b;
s2:=p*sqr(r);
Writeln('Площадь закрашеной окружности = ', s2-s1);
end.

Если закрашена какая-то другая область то можете просто изменить действие с площадями в предпоследней строчке ( в данном случае мы из s2 вычитаем s1).