Question

Помогите пожалуйста решить хотя бы первуууую!!!

Answer 1

1 задача)
program sf;
var a,b,c:Integer;
begin
writeln('Введите 3 числа через пробел');
readln(a,b,c);
if a+b+c=7 then writeln('Да')
else writeln('Нет');
end.

Answer 2

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

if y>=0 then

write('принадлежит')

else

write('не принадлежит')

end.