Ответ на седьмое - винчестер
var a, b, c , d : integer;
begin
read(a);
b := a mod 10;
c := a div 10 mod 10;
d := a div 100;
if (b mod 2 = 1) and (c mod 2 = 1) and (d mod 2 = 1) then
writeln('Нечетны')
else
writeln('Есть четные');
end.
Program primer;
Var i,n,k,chislo:integer;
Begin
cls;
write(' skolko chisel budem vvodit ? '); readln(n);
write('chislo dlia poiska : '); read(k);
for i:=1 to n do
begin
readln(chislo);
if ((chislo mod 10 = k) or (chislo div 10 = k)) then
write('chislo ',chislo,' udov uslovie.. ')
else write('chislo ',chislo,' NE udov uslovie.. ');
writeln;
end;
readln;
End.
Операторы делают следующее: а присвоить 3. Если а меньше 4,то увеличить а на 2, следовательно значением переменной A после выполнения операторов будет 5.