var
x: string;
arr: array of char;
begin
readln(x);
arr := x.Split(' ')[1].ToCharArray();
System.Array.Reverse(arr);
writeln(length(arr), ' ', new string(arr));
end.
---------------------------------------
var
c: array of integer := (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2);
r, q, s: real;
i, a, b: byte;
begin
q := 1;
i := 1;
r := c.Min();
while (i < length(c)) do
begin
q *= c[i];
i += 2;
end;
readln(a, b);
s := b - a - 1;
writeln('T = ', (R / Q + 1) + S);
end.
-----------------------------
const
k = 5;
p = 5;
var
f: array [1..k, 1..p] of string;
o: real;
df: byte;
begin
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
begin
f[i, j] := random(10, 99).ToString();
write(f[i, j]:3);
if (j >= 7 - i) then
begin
o += integer.Parse(f[i, j]);
df += 1;
f[i, j] := '██';
end;
end;
writeln();
end;
writeln();
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
write(f[i, j]:3);
writeln();
end;
writeln(o / df);
end.
1111011,0101001000101101 (почти бесконечно большая дробная часть, написала, сколько не лень считать было)
---
123(10)=1111011(2)
0,321(10)=0,0101001000101101(2)
<span>Решение 1: </span>Пусть N – искомое основание системы счисления. Так как запись числа 63 в системе счисления с основанием N содержит 3 цифры, то N2.<= 63 <N3 . Этому условию удовлетворяют числа N = 4, 5, 6, 7, 8. Так как запись числа 63 в позиционной системе счисления с основанием N заканчивается на 0, то N – делитель числа 63. Следовательно, N = 7.
Замечание. Можно сделать проверку – записать число 63 в 7-чной системе счисления. Имеем:
63:7 = 9 (ост 0); 9:7 = 1 (ост 2) 1:7 = 0 (ост 1)<span>Вывод: 6310=120<span>7</span></span>
Program portnoy;
var L,k : integer ;
begin
L=400;
k=0;
While L>=3 do begin
L=L-3;
k=k+1;
end;
WriteLn ( ' получится ',k,' занавесок и останется ',L,' метров ткани');
end.
