Модель табличная, графическая отобразить, создать, изобразить образ, изучающий некоторые существенные стороны объекта, явления или процесса образ объекта
salesrawtogo
08.12.2021
Const n=10; var a: array[1..n] of integer; c,d,i: integer; begin randomize; for i: =1 to n do a[i]: =random(201)-100; writeln('заданные числа, с рандома: '); for i: =1 to n do writeln(a[i],' '); for i: =1 to n do if a[i] mod 2=0 then c: =c+a[i] else d: =d+a[i]; writeln('сумма четных элементов: ',c); writeln('сумма нечетных элементов: ',d); end.
adminaa
08.12.2021
// pascalabc.net 3.0, сборка 1064 var a,b: byte; begin write('введите два кода символов, большие 31: '); read(a,b); if (a< 32) or (b< 32) then writeln('код должен быть больше 31') else begin write('символы, соответствующие : < '); if a> b then write(chr(a),'> и < ',chr(b),'> ') else write(chr(b),'> и < ',chr(a),'> ') end end. тестовое решение: введите два кода символов, большие 31: 42 198 символы, соответствующие : < ж> и < *>