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

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

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

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

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

Question

Информатика

Алеха

3 августа, 20:15

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

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

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

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

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

+5

Ответы (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.