<span>это значит что пользователю будут показывать картинку, и качество картинки зависит от пожеланий пользователя и возможностей оборудования, т.е. если у вас 14' ega то при всем вашем желании он 1960*1280 показывать не будет, а вот между 640*480 и 800*600 можно будет выбрать.</span>
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=['A'..'F','X'..'Z'];
Writeln(s)
end.
Записать число в римской системе счисления:11,13,22,39,60,99,200,438,649,999,1207,2945,3555,3678,3900,3999
maxko
11 - XI
<span>13 - XIII
</span>22 - XXII
39 - XXXIX
60 - LX
99 - XCIX
200 - CC
438 - CDXXXVIII
649 - DCXLIX
999 - CMXCIX
1207 - MCCVII
2945 - MMCMXLV
3555 - MMMDLV
3678 - MMMDCLXXVIII
3900 - MMMCM
3999 - MMMCMXCIX
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Число элементов в массиве:');
var a:=ArrRandom(n,1,99);
Write('Исходный массив: '); a.Println;
var n1,n2:integer;
Write('Границы номеров элементов для суммы: '); Read(n1,n2);
if n1>n2 then Swap(n1,n2);
if (n1<1) or (n2>n) then Writeln('Границы выходят за пределы массива')
else Writeln('S=',a[n1-1:n2].Sum)
end.
<u>Пример</u>
Число элементов в массиве: 15
Исходный массив: 89 82 45 28 88 68 34 19 35 26 67 43 71 96 66
Границы номеров элементов для суммы: 4 9
S=272