Задание 1:
с b b>10
0 3 нет
3 2 нет
5 4 нет
9 6 нет
15 8 да
!Если нужно заполнить таблицу из 4х строк - не писать первую, так как там значения изначальные.
Задание 2:
var p, s: real;
begin
p := 2;
s := 0;
repeat
p := p * 1.5;
s := s + p;
until p > 5;
writeln(s);
end.
Задание 3:
s := 0;
n := 1;
i := 1;
while i >= 3 do
begin
s := s + 1 / n;
n := n + 2;
i := i + 1;
end;