Система NTFS
_____________
Var
sum, a, b: integer;
begin
sum:=0;
readln(a);
readln(b);
sum:=a+b;
if (sum mod 5 = 0) then sum:=sum+1 else sum:=sum-2;
writeln(sum);
end.
А) 84953<span> = 10</span>100101111011001, 834<span> = 1</span>101000010, 55<span> = </span>110<span>111
б) </span>1462<span> = 1</span>100110010, 71<span> = </span>111001, 634<span> = </span>110011<span>100
в) </span>E93F76<span> = </span>111010010011111101110<span>110,
</span>59D45<span> = 1</span>011001110101000101
94553<span> = 10</span>010100010101010<span>011</span>
Звуковая,числовая,графическая,видео-информация,текстовая
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var b:=new integer[n];
for var i:=0 to n-1 do
b[i]:=a[:i+1].Max;
b.Println
end.
<em>Пример</em>
n= 15
-21 27 -19 -7 34 -20 25 36 40 -2 40 43 -37 41 7
-21 27 27 27 34 34 34 36 40 40 40 43 43 43 43