// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=Abs(ReadInteger('Введите целое число:'));
if n.IsOdd then Println('Число нечетное')
else
if n=0 then Writeln('Ноль вводиить нельзя')
else Println('Число четное')
end.
Рисование линий и фигур (прямых линий, произвольных линий, кривых, эллипсов или кругов, прямоугольников или квадратов, многоугольников),размещение текстов на рисунке,работа с цветом - заполнение областей цветом, рисование с помощью кисти, рисование с помощью распылителя, изменение палитры, преобразование цветных рисунков в черно-белые, обращение цветных рисунков, изменение цвета нарисованных линий, копирование цвета объекта,работа с фрагментами рисунков - выделение фрагмента, копирование фрагмента, сохранение фрагмента в отдельном файле, вставка рисунка или фрагмента из библиотеки или другого файла,изменение рисунка - изменение размеров, изменение масштаба, отображение и поворот рисунка, растяжение и наклон.
Alt+F4
Файл - Выход
Нажать на крестик наверху справа
Через панель задач
Через диспетчер задач
Формула возможных комбинаций
77 = m * d
где m - колво мальчиков d - девочек
Множители числа 77 это 11 и 7
Соответственно мальчиков 11 девочек 7 или наоборот
Ответ 18
Держи ))) удачи )))
var x, y, d: real;
begin
read(x,y);
d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат}
if d <= 1 then
writeln('Входит в Д1')
else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then
writeln('Входит в Д2')
else
writeln('Не входит');
end.