вообще признак делимости на 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.
Если скопировать С2 в С3 получится
=$A$1*A3+B3
С3=695
Ответ: 3
1)var a,b,i:integer;
begin
readln(a,b);
for i:= 1 to 100 do
if (i mod a<>0) and (i mod b<>0) then write(i,' ')
<span> end.
2)</span>var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:= a to b do
if (i mod 7=0) xor (i mod 9=0) then k:=k+1;
write(k)<span>
end.
3)</span>var pol,i,otr,a:integer;
begin
otr:=0;
pol:=0;
for i:= 1 to 10 do
begin
readln(a);
if a>0 then pol:=pol+1;
if a<0 then otr:=otr+1
end;
if pol>otr then write('Положительных больше');
if otr>pol then write('Отрицательных больше')<span>
end.
4) </span>var i,a,b:integer;
begin
readln(a,b);
for i:= a to b do
if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ')
<span>end.</span>
Автоматический (через заданное количество времени), и по щелчку