// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var m,n:integer;
Write('Введите два натуральных числа через пробел: ');
Read(n,m);
Writeln(Ord((n mod m = 0) or (m mod n = 0)));
end.
Program Pr1; Uses Crt;
var a,b,c: integer; y: real;
begin clrscr;
Writeln('введите a,b,c');
Readln(a,b,c);
y=b+sqrt(b*b+4*a*c)/(2*a)-a*a*a*c+b*b-2;
Writeln('Y=', y:5:2);
Readln;
End.
1. В классе девочек больше чем мальчиков. 2 у меня хорошая оценка 3. С земли испарился пар и вновь упал на землю. 4 ехать прямо нельзя