Решение можно представить в виде логического выражения:
A ∧ ( B∨C )
В виде схемы это выглядит так:
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:=ReadlnString('>');
s:=s.Replace(',',', '); Writeln(s);
Writeln(NewLine,'Список слов:');
s.ToWords.OrderBy(x->x).Println(NewLine);
end.
Тестовый пример
> Это мой,плохо форматированный,но зато мой текст!
Это мой, плохо форматированный, но зато мой текст!
<u><em>Список слов:</em></u>
зато
мой
мой,
но
плохо
текст!
форматированный,
Это
1.Перевезёт волка
2.Перевезёт капусту
3.Перевезет козу.
1) ответы 1; 0;1;0
2)для 2 верно
3) для 1 верно
Pascal:
var x,y:integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти');
if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти');
if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти');
if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.