1) var a,b: integer ;
begin
readln(a);
b:=(a mod 10)+(a div 10);
if ((b mod 7=0) and ((a div 10) mod 2 =0)) then writeln ('верно') else writeln ('не верно')
end.
2)var a,b,i: integer;
begin
readln(a);
for i:=1 to 3 do
if a mod 10 > 3 then begin b:=b+1; a:=a div 10; end;
if b=3 then writeln ('верно') else writeln ('не верно')
end.
3)var a,b,c,d,i: integer;
begin
readln (a);
b:= b+a mod 10;
d:= a div 10000;
b12:=b+d mod 10;
a:=a div 10;
for i:=1 to 3 do begin c:=c+a mod 10; a:=a div 10 end;
if c mod b =0 then writeln ('верно') else writeln ('не верно') ;
end.
Гипотенуза пересекает ось Х в точке с координатами (х1; 0), а ось Y - в точке с координатами (0;y2). Найдем эти координаты, считая коэффициенты a и b в уравнении прямой заданными.
Теперь можно определить номера четвертей n, в которых располагается гипотенуза.
var
a, b: integer;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
Readln(f, a, b);
Close(f);
Assign(f, 'output.txt');
Rewrite(f);
if a < 0 then
if b < 0 then Writeln(f, '3') else Writeln(f, '1')
else
if b < 0 then Writeln(f, '4') else Writeln(f, '2');
Close(f)
end.