B. делится? имя входного файла: стандартный ввод имя выходного файла: стандартный вывод ограничение по времени: 1 секунда ограничение по памяти: 256 мегабайт ома решил придумать свой признак делимости на 8. ома будет считать что число делится на 8 если существует перестановка цифр числа такая что новое число было без лидирующих нулей и число делится на 8. вам надо сказать делится ли число на 8 по правилам омы. формат входных данных в первой строке дано цело число n (1 ⩽ n ⩽ 103 ) - длинна числа. во второй строка дана строка состоящая из цифр s - число которое надо проверить. формат выходных данных выведите yes если число делится на 8 по правилам омы иначе no примеры стандартный ввод стандартный вывод 2 23 yes 3 101 no замечание перестановка числа х - это число, состоящее из тех же цифр, что и х, но в другом порядке. например, числа, которые можно получить путем перестановки цифр числа 123: 132, 213, 231, 312, 321 в первом примере из числа 23 можно получить делящееся на 8 число 32, ответ yes. во втором примере из числа 101 невозможно получить число делящееся на 8, ответ no. subtask 1: (n ⩽ 100) subtask 2: (n ⩽ 1000)
Ответы
Procedure TForm1.Button1Click(Sender: TObject);
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится
Var
s,s1:string;
a,b:array[1..100]of integer;
i,n,x,k:integer;
begin
readln(s);
readln(s1);
n:=1;
if length(s)>length(s1) then
x:=length(s)
else x:=length(s1);
for i:=1 to length(s) do
begin
val(copy(s,i,1),k,n);
a[i+x-length(s)]:=k;
end;
for i:=1 to length(s1) do
begin
val(copy(s1,i,1),k,n);
b[i+x-length(s1)]:=k;
end;
for i:=1 to length(s) do
a[i]:=a[i]+b[i];
for i:=length(s) downto 2 do
begin
a[i-1]:=a[i-1]+a[i]div 10;
a[i]:=a[i]mod 10;
end;
for i:=1 to length(s) do
write(a[i]);
end.
s,s1:string;
a,b:array[1..100]of integer;
i,n,x,k:integer;
begin
readln(s);
readln(s1);
n:=1;
if length(s)>length(s1) then
x:=length(s)
else x:=length(s1);
for i:=1 to length(s) do
begin
val(copy(s,i,1),k,n);
a[i+x-length(s)]:=k;
end;
for i:=1 to length(s1) do
begin
val(copy(s1,i,1),k,n);
b[i+x-length(s1)]:=k;
end;
for i:=1 to length(s) do
a[i]:=a[i]+b[i];
for i:=length(s) downto 2 do
begin
a[i-1]:=a[i-1]+a[i]div 10;
a[i]:=a[i]mod 10;
end;
for i:=1 to length(s) do
write(a[i]);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Удачи, чел, на этой олимпиаде, все куплено. Я уже свалил оттуда