===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var x := a.Where(p -> p > 0).ToArray;
var y := a.Where(p -> p < 0).ToArray;
x.Println;
y.Println
end.
Либо я чего то не понял, либо все так просто как я понял. Рас мы в информатике то под текстами и языками понимаются кодировки и раскладки верно? Если действительно так то лишь в том случае когда кодировка предусматривает это, проще говоря русские символы можно запихнуть в юникод и в виндовс1251, а вот с другими будут несосотыковки и явные проблемы...ну это если я все верно понял...
Где инфа? Где двадцать символов?
Ответ:
a = input()
b = input()
if (a == 'нет' or a == 'да') and (b == 'нет' or b == 'да'):
print('ВЕРНО')
else:
print('НЕВЕРНО')
Объяснение:
Uses crt;
var i,sum:integer;
begin
sum:=0;
for i:=10 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
<span>end.</span>