С помощью данной программы на Паскале преобразуешь коды в символы (или таблиц). <em>Ответ</em><em>:</em>paintbrush.
var a:char; b:integer;
begin
writeln ('Введите код символа');
read(b); // чтение кода
a:=chr(b); // преобразует код в символ
write ('Символ - ',a);
end.
Var a:array[1..100] of integer;
i,p,m:integer;
begin
p:=0;
m:=0;
for i:=1 to 100 do begin
a[i]:=random(-20,20);
if a[i]>0 then p+=1 else
m+=1;
end;
writeln('Положительных - ',p,' отрицательных - ',m);
<span>end.</span>
1. Загнать два вагона в тупик, оставшийся вагон с тепловозом прогнать дальше по путям. 2. Грузовой состав проезжает тупик, сдает назад, цепляет эти вагоны в хвост состава, вытягивает их на пути и сдает назад на исходную позицию. 3. Тепловоз с оставшимся вагоном уходит в тупик. 4. Грузовой состав бросает прицепленные вагоны и дает ходу. 5. Тепловоз с вагоном выезжает из тупика и подбирает свои вагоны.
<span>var
a: array [1..100] of integer;
i, n , max : integer;
begin
writeln('rozmer');
readln(n);
randomize ;
if (( n>=1) and (n<=35)) then
for i:=1 to n do begin
a[i]:=random(90)-45 ;
write(a[i]:3);
end;
writeln;
max:=a[1] ;
for i:=2 to 100 do begin
if a[i]>max then max:=a[i] ;
end;
writeln(max);
end<span>.</span></span>