вообще признак делимости на 2 можно определить проще. Если остаток от деления на 2=0 тогда число делится на 2 нацело иначе нет if (n mod 2)=0 then writeln('Число делится на 2 нацело' ) else writeln('Число не делиться на 2 нацело' );
Однако если по условию задачи признак, такой то уж ничего не пделаешь
Program evenNum;
Uses crt;
var n:real;
begin
clrscr;
write('Введите число n: ');
readln(n);
if ((n/2)<>(n div 2)) then writeln('Число не делится на 2 нацело' )
else writeln('Число делится на 2 нацело' );
readkey;
end.
Составим уравнение и решим его:
8*n+8000 = 16*n
8*n = 8000 где n - количество символов в сообщении
Переведем в байты и получим, что первоначальный объем сообщения равен 8000/8 = 1000байт
var
n:integer;
begin
write('n = '); readln(n);
if (n div 100) = (n mod 10) then
writeln('Перевертыш')
else
writeln('Нет');
readln;
end.
Program a_1;
var xa,ya,y,l,x,k:real;
begin
writeln('введите координаты точки А');
read(xa,ya);
writeln('введите значение коэффициента k и l ');
read(k,l);
if ya=k*xa+l then
begin
writeln('Точка А принадлежит прямой');
end
else
if ya>k*xa+l then
begin
writeln('Находится выше прямой');
end
else
if ya<k*xa+l then
begin
writeln('Находится ниже прямой');
end
<span>end. </span>
<span>Место расположения: Екатеринбург
Дата открытия: 5 октября 2005 года
Материал, из которого он сделан: бетон
Описание внешнего вида: копия кнопок стандартной клавиатуры Windows, QWERTY-раскладка, в масштабе 1:30.
Графическое изображение: см вложение
Размеры: 16x4 м, высота 15 см
Автор: Анатолий Вяткин</span>