Человек. Тут все просто. :)
Объяснение:
"А" меньше 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.
Получается шесть