Числа от 10 до 100 сколько чисел делятся на 2, но не делятся на 5? напишите решение на языке pascal​

var i,c: integer;

begin

    c : = 0;

    for i: =10 to 100 do

        if (i mod 2 = 0) and not (i mod 5 = 0) then

            c : = c + 1;

    writeln(c);

end.

"шифр алгоритм"

Объяснение:

Шифр "штакетник" это когда смешивание идёт через один символ, что напоминает забор, отсюда и его название.

Шифрование идет таким Текст делится на две части: в первую попадают все нечетные буквы, во вторую - чётные, затем к первой части приписывается вторая, и получается зашифрованный текст.

Дешифровка выполняется разделением шифра на две равные (если чётное количество символов) части (строки) или первая часть будет на 1 символ длиннее (если нечётное количество символов). Затем поочередно считываются символы из верхней и нижней строки, и получается исходный текст.

шфагртирлоим =

1) шф агрт +

2) ир лоим =

"шифр алгоритм"

1.

program z1;

const n=5;

var a:array [1..n,1..n] of integer;

i,j,s:integer;

begin

writeln ('Квадратная матрица:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(10);

write(a[i,j]:3);

if i=j then s:=s+a[i,j]

end;

writeln;

end;

writeln('Среднее арифметическое элементов расположенных на главной диагонали: ',s/n)

end.

2.

program z2;

const n=5;

var a:array [1..n,1..n] of integer;

i,j,s,sp:integer;

begin

writeln ('Квадратная матрица:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(21)-10;

write(a[i,j]:5);

if i=j then s:=s+a[i,j]

end;

writeln;

end;

for i:= 1 to n do

for j:=1 to n do

if (a[i,j]>0) and (a[i,j]>s/n)then sp:=sp+a[i,j];

writeln('Сумма положительных элементов, превышаюших по величине среднее арифметическое всех элементов расположенных на главной диагонали: ',sp)

end.

3.

program z3;

const n=5;

var a:array [1..n,1..n] of integer;

i,j,m:integer;

begin

writeln ('Двумерный массив:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(21)-10;

write(a[i,j]:5)

end;

writeln;

end;

m:=a[1,1];

for i:= 1 to n do

for j:=1 to n do

if a[i,j]<m then m:=a[i,j];

writeln ('Минимальный элемент ',m);

for i:= 1 to n do

for j:=1 to n do

if a[i,j]=m then writeln('Индексы [',i,',',j,']')

end.