1.
x не кратно 4 x mod 4 <>0
-5<x<-2 (x>-5)and(x<-2)
x принадлежит [-1,5] (x>=-1)and(x<=5)
2.
uses crt;
var n1,n2,n3:byte;
begin
writeln('Введите 3 разных числа от 1 до 9 по порядку:');
readln(n1,n2,n3);
if(n2-n1=3)and(n3-n2=3)then write('На вертикали!');
readln
end.
(listBox.SelectedItem as DataRowWiew)[ID_FILM]<span>;</span>
1) Нам дано что S=0 дальше нам дано что программу s:=s+12 нужно повторить 11 раз ( for k:=1 to 11 do ).К нулю прибавляем 12 ровно 11 раз и получаем S=132
2)так же делаем и тут. обрати внимание что 0 тоже считается за количество повторов ( for k := 0 to 9 do ) так мы считаем не 9 повторов а 10.И так. <span>s := 1 следовательно к 1 прибавляем 5 по 9 рази получаем </span> S=51
Var x: array[1..8] of longint;
Var i,a : longint;
Begin
for i:= 1 to 8 do
begin;
readln(a);
x[i] := a;
end;
Writeln('Массив K:');
for i:= 1 to 8 do
begin;
writeln(',i,' = ',x[i]);
end;
Readln;
end.