1. Программа, проверяющая сумму цифр трёхзначного числа на кратность семи:
var
x, a, b, c: integer;
begin
readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
if (a + b + c) mod 7 = 0 then
write('Да')
else
write('Нет')
end.
2. Эта программа будет писать "принадлежит" и для области точек, лежащих между двумя прямыми на графике ниже окружности (например, для точек с координатами (-2, -2) или (0, -3) или (1, -5) ).
Чтобы это исправить, можно добавить ещё одно условие (чтобы исключить отрицательные значения игрек- строка if y>=0 then ).
Получим такую программу:
var x,y: real;
begin
readln(x,y);
if x*x+y*y>=4 then
if x>=-2 then
if y<=-x then</p>
if y>=0 then
write('принадлежит')
else
write('не принадлежит')
end.