Question

Паскаль 1. дано целое число. верно ли, что оно делится на 5 и на 7? 2. даны два целых числа. верно ли, что они заканчиваются на одну и ту же цифру? 3. определить, пройдет ли кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x, y. 4. дано квадратное уравнение ax2+bx+c=0. найти корни уравнения.

Answer 1

Program z1;
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.