Легенда гласит, что карл фридрих гаусс, учась в школе, смог быстро посчитать сумму всех целых чисел от 1 до 100, заметив, что 1 + 100 = 2 + 99 = … = 50 + 51 = 101. поэтому сумма всех целых чисел от 1 до 100 равна 101 × 50 = 5050. теперь решите посложнее: как расставить перед каждым из чисел от 1 до n знаки «+» или «−» так, чтобы сумма получившихся чисел была равна 0? например, для n = 3 сумма −1 −2 +3 будет равна 0. решите эту для четырёх значений n: n = 8, n = 15, n = 40, n = 99. ответ на эту нужно записать в виде 4 строк. каждая строка должна содержать только знаки «+» и «−». в первой строке должно быть 8 знаков, во второй строке – 15, в третьей – 40, в четвертой – 99. последовательность знаков в каждой строке соответствует последовательности знаков, которые нужно расставить перед числами 1, 2, …, n так, чтобы сумма была равна 0. например, для n = 3 ответ нужно записать в виде «++−» или «−−+». если вы не можете решить для какого-то значения n, то поставьте в этой строке один знак «+». решение будет принято на проверку, если оно содержит четыре строки, каждая из которых состоит из символов «+» или «−». количество символов в строках и правильность ответа сразу после сдачи не проверяется
Ответы
Var
A,d,k,i:longint;
Begin
WriteLn('Введите четыре числа');
For i:= 1 to 4 do
Begin
Read(A);
Write('Делители числа ',A,': ',A,', ');
d:=A div 2+1;
While d>0 do
Begin
if A mod d = 0 then
Begin
Write(d,', ');
k:=k+1;
End;
d:=d-1;
End;
Write('кол-во его делителей: ',k);
k:=1;
WriteLn;
End;
End.
Пример:
Введите четыре числа
987654321 32767 256 13
Делители числа 987654321: 987654321, 329218107, 109739369, 58097313, 19365771, 6455257, 3417489, 1139163, 379721, 2601, 867, 289, 153, 51, 17, 9, 3, 1, кол-во его делителей: 17
Делители числа 32767: 32767, 4681, 1057, 217, 151, 31, 7, 1, кол-во его делителей: 8
Делители числа 256: 256, 128, 64, 32, 16, 8, 4, 2, 1, кол-во его делителей: 9
Делители числа 13: 13, 1, кол-во его делителей: 2
A,d,k,i:longint;
Begin
WriteLn('Введите четыре числа');
For i:= 1 to 4 do
Begin
Read(A);
Write('Делители числа ',A,': ',A,', ');
d:=A div 2+1;
While d>0 do
Begin
if A mod d = 0 then
Begin
Write(d,', ');
k:=k+1;
End;
d:=d-1;
End;
Write('кол-во его делителей: ',k);
k:=1;
WriteLn;
End;
End.
Пример:
Введите четыре числа
987654321 32767 256 13
Делители числа 987654321: 987654321, 329218107, 109739369, 58097313, 19365771, 6455257, 3417489, 1139163, 379721, 2601, 867, 289, 153, 51, 17, 9, 3, 1, кол-во его делителей: 17
Делители числа 32767: 32767, 4681, 1057, 217, 151, 31, 7, 1, кол-во его делителей: 8
Делители числа 256: 256, 128, 64, 32, 16, 8, 4, 2, 1, кол-во его делителей: 9
Делители числа 13: 13, 1, кол-во его делителей: 2
Var
i: integer;
ar: array[1..4]of integer;
procedure Divisor(x: integer);
var
d, c: integer;
begin
c := 1;
if(x < 1) then exit;
write(x, ' = ');
if(x = 1) then begin writeln(1, ' Количество делителей:', 1);exit end;
d := 2;
while x > 1 do
begin
if(x mod d = 0) then
begin
if(x div d <> 1) then write(d, ' * ')
else write(d, '; ', ' Количество делителей:', c);
x := x div d;
c := c + 1;
end
else d := d + 1;
end;
writeln;
end;
begin
writeln('Введите четыре числа:');
for i := 1 to 4 do read(ar[i]);
writeln;
for i := 1 to 4 do Divisor(ar[i]);
end.
i: integer;
ar: array[1..4]of integer;
procedure Divisor(x: integer);
var
d, c: integer;
begin
c := 1;
if(x < 1) then exit;
write(x, ' = ');
if(x = 1) then begin writeln(1, ' Количество делителей:', 1);exit end;
d := 2;
while x > 1 do
begin
if(x mod d = 0) then
begin
if(x div d <> 1) then write(d, ' * ')
else write(d, '; ', ' Количество делителей:', c);
x := x div d;
c := c + 1;
end
else d := d + 1;
end;
writeln;
end;
begin
writeln('Введите четыре числа:');
for i := 1 to 4 do read(ar[i]);
writeln;
for i := 1 to 4 do Divisor(ar[i]);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Что можно делать с информацией в БД средствами СУБД?
Автор: gub191025
Напишите сочинение на тему "компьютер будущего"
Автор: preida-2
Укажите адрес поисковых систем интернет
Автор: olimov9
постройте таблицы истинности для следующих логических выражений b & (a \/ ā
Автор: artbogema2016
Паскаль абс.нет составьте программу вычисления суммы квадратов простых чисел из промежутка [m; n]
Автор: ВасилийКлимова1695
Если N=8, то это=1-2-3-4-5+6+7+8
дальше пока не решила