ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР
a: РЯД 10 ИЗ ЦЕЛ;
сч: ЦЕЛ;
произведение: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
КОН;
произведение := 1;
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
ЕСЛИ НЕ ЧЕТ(a[сч]) ТО
произведение := произведение * a[сч]
КОН
КОН
КОН Задание.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Введите целое число:').Reverse.Println
end.
Ну так, как эта работа не контрольная, то получится так:
1. Для того, чтобы s было максимальным, надо чтобы рядом стоящие элементы отличались на минимальное значение. Так как по условию задачи массив содержит целочисленное значение, то минимальная разница = 1
2. Далее при каждом вхождении в цикл переменная s будет увеличиваться на 2:
i = 0 s = 17
i = 1 s = 19
i = 2 s = 21
i = 3 s = 23
i = 4 s = 25
i = 5 s = 27
i = 6 s = 29
i = 7 s = 31
i = 8 s = 33
i = 9 s = 35
Ответ: s = 35
var
a:array[1..100] of integer;
povt,i,j,elem:integer;
begin
povt:=0;
randomize;
for i:=1 to 100 do
a[i]:=random(1001);
for j:=1 to 100 do
povt:=0;
begin
for i:=1 to 100 do
if a[i]=a[j] then
begin
elem:=a[i];
povt:=povt+1;
end;
povt:=povt-1;
write('Число= '+elem+ ' Количество повторений= '+ povt);
end;
Program gt;
var n,k,t:integer;
begin
read(n,k);
t:=0;
while n>=k do
begin
n:=n-k;
t:=t+1;
end;
writeln(t);
end.