Помогите Паскаль
1. Дано целое число. Верно ли, что оно делится на 5 и на 7?
2. Даны два целых числа. Верно ли, что они заканчиваются на одну и ту же цифру?
3. Определить, пройдет ли кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x, y.
4. Дано квадратное уравнение ax2+bx+c=0. Найти корни уравнения.
1. Дано целое число. Верно ли, что оно делится на 5 и на 7?
2. Даны два целых числа. Верно ли, что они заканчиваются на одну и ту же цифру?
3. Определить, пройдет ли кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x, y.
4. Дано квадратное уравнение ax2+bx+c=0. Найти корни уравнения.
Answers & Comments
var n:integer;
begin
writeln('vvedite 4islo-');
readln(n);
if (n mod 7=0) and (n mod 5=0) then
writeln('verno')
else
writeln('neverno');
end.
var a,b,c:real;
D,x1,x2:real;
begin
writeln('vvedite koef');
readln(a,b,c);
D:=sqr(b)-4*a*c;
x1:=(-b+sqrt(D))/2*a;
x2:=(-b-sqrt(D))/2*a;
writeln('x1=',x1);
writeln('x2=',x2);
end.