Найти количество четных чисел от 10 до 20

10 12 14 16 18 20
Получается шесть

Человек. Тут все просто. :)

Объяснение:

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=8)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=8-2=6

ответ: В=6

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=8-2=6

ответ: А=6

ответ: А=6; В=6

Теперь мы это все повторяем в том же духе, только до того момента пока значение буквы "А" не станет меньше "0".

Значит повторяем:

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=6)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=6-6=0

ответ: В=0

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=6-2=4

ответ: А=4

ответ: А=4; В=0

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=4)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=4-0=4

ответ: В=4

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=4-2=2

ответ: А=2

ответ: А=2; В=4

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=2)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=2-0=2

ответ: В=2

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=2-2=0

ответ: А=0

ответ: А=0; В=2

"А" меньше 0?

ответ: нет, она на равне с 0. (Т.е.: А=0)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=0-0=0

ответ: В=0

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=0-2=-2

ответ: А=-2

ответ: А=-2; В=0Значит мы условия выполнили! "А" меньше 0.Удачи!

program Lyonyshna;
const
    Rus = ['А'..'Я', 'а'..'я'];
    Lat = ['A',..'Z', 'a'..'z'];
Var f,frus,flat,foth:text;
    i: integer;
    st,strus,stlat,stoth: string;
begin
    Assign(f, 'file1.txt');
    Rewrite(f);
    write('Введите исходную строку: '); readln(st);
    writeln(f,st);
    close(f);
    strus:='';
    stlat:='';
    stoth:='';
    Reset(f);
    Assign(frus, 'russian.txt');
    Rewrite(frus);
    Assign(flat, 'latin.txt');
    Rewrite(flat);
    Assign(foth, 'other.txt');
    Rewrite(foth);
    Readln(f,st);
    for i:=1 to length(st) do
      if st[i] in rus then strus:=strus+st[i]
        else
          if st[i] in lat then stlat:=stlat+st[i]
            else
              stoth:=stoth+st[i];
    Writeln(frus,strus);
    Writeln(flat,stlat);
    Writeln(foth,stoth);
    Writeln('Русские символы: ',strus);
    Writeln('Латинские символы: ',stlat);
    Writeln('Другие символы: ',stoth);
    Close(f); Close(frus); Close(flat);  Close(foth);
end.