Видимо, имеется в виду вот это?
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=-2)and(x<=2)and(y>=-2)and(y<=2)
then writeln('Точка попадает в область')
else writeln('Точка не попадает в облась');
<span>end.</span>
<h2>Задание 3</h2>
p = 0, s = 1
0 > 5 ? False
s = s + p = 1 + 0 = 1
p = p + 2 = 0 + 2 = 2
2 > 5 ? False
s = s + p = 1 + 2 = 3
p = p + 2 = 2 + 2 = 4
4 > 5 ? False
<u>s = s + p = 3 + 4 = 7</u>
p = p + 2 = 4 + 2 = 6
6 > 5 ? True
Выход из цикла
<h3>Ответ</h3>
7
<h2>Задание 4</h2>
y = 5, z = -3
5 < 5 ? False
y = y + z = 5 + (-3) = 2
x = y + z = 2 + (-3) = -1
<h3>Ответ</h3>
-1
<h2>Задание 5</h2>
a = 1, b = 1
1 < 9 ? True
1 < 1 ? False
b = b + 2 = 1 + 2 = 3
a = a + 1 = 1 + 1 = 2
...
Вторая итерация цикла и последующие будут во втором условии принимать значение True, следовательно:
Первое условие у нас завершится только тогда, когда a < 9, то есть при a = 2 (не касается цикла) + 3 + 3 + 3 = 11. Всего будет 3 цикла. Все 3 цикла к b будет прибавляться 2.
b = 3 + 2 · 3 = 3 + 6 = 9
<h3>Ответ</h3>
9
Смотря в какой программе работаешь.
Если не ошибаюсь, в паскале readln начинает выполнение действия с новой строки, в то время как read продолжает на старой строке. Но могу и ошибаться
Vark,a:integer;begink:=0;While true do beginread(a);if a=0 then break;if (a mod 8=0) and (a mod 10=6) then k+=1;end;print(k)end.