Номер 3
c=b-a
c
номер 4
ввод a,b
z
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите:',ReadInteger('n=')).Any(x->x<0))
end.
<u>Примеры</u>
n= 5
Вводите: 6 -4 56 34 0
True
n= 3
Вводите: 67 9453 457
False
Примерно так рисуются круги Эйлера
А в чём проблема?деинсталятором в безопасном режиме удаляй и всё,на работе вебки после удаления этой проги не отразится
jefidgha
На каждом шаге выбираем ближайшую букву, когда берём последнюю букву a, ни на горизонтали, ни на вертикали букв не остаётся.