Помогите Паскаль

1. Дано целое число. Верно ли, что оно делится на 5 и на 7?

2. Даны два целых числа. Верно ли, что они заканчиваются на одну и ту же цифру?

3. Определить, пройдет ли кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x, y.

4. Дано квадратное уравнение ax2+bx+c=0. Найти корни уравнения.

Question

Информатика

Ардальон

4 мая, 23:39

Помогите Паскаль

1. Дано целое число. Верно ли, что оно делится на 5 и на 7?

2. Даны два целых числа. Верно ли, что они заканчиваются на одну и ту же цифру?

3. Определить, пройдет ли кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x, y.

4. Дано квадратное уравнение ax2+bx+c=0. Найти корни уравнения.

+2

Ответы (1)

Знаете ответ на вопрос?

Геня · 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.