///////////////<u>Pascal abc</u>/////////////
program zadacha;
var i:integer; stroka:string;
begin
readln(stroka);
for i:=1 to Length(stroka) do
if stroka[i]<>chr(ord(32)) then
write(stroka[i])
else
break;
end.
1. (D3 + D5) / E6 ( в E7); (B2 + B4)/C5 (в C6).
2. а) значение переместится на строку выше
б) значение переместится на строку ниже
в) переместится на столбец влево
г) переместится на столбец вправо
Function to_base(n: integer; base: integer): integer;
begin
if n = 0 then
to_base := 0
else
to_base := (n mod base) + 10 * to_base(n div base, base);
end;
var
n: integer;
begin
readln(n);
writeln(to_base(n, 3));
writeln(to_base(n, 5));
<span>end.</span>