Задача №1700. Ревнивые числа В Нумберляндии проблема: простое число p ревнует к другому простому числу q . Оно думает, что в интервале от a до b включительно содержится больше чисел, которые делятся на большую степень q чем на степень p справиться с сомнениями. Пусть (,) a ( n , x ) – максимальное k , такое, что n делится нацело на x k . Будем называть число n p -доминирующим над числом q если (,)>(,) a ( n , p ) > a ( n , q ) . Необходимо определить, сколько чисел из интервала от a до b включительно являются p -доминирующими над q . Формат входных данных Первая строка содержит четыре целых числа ,,,(1≤,≤1018,1≤,≤109) a , b , p , q ( 1 ≤ a , b ≤ 10 18 , 1 ≤ p , q ≤ 10 9 ) . ≠, p ≠ q , p и q — простые. Формат выходных данных Выведите одно число — сколько чисел из интервала от a до b включительно являются p -доминирующими над q . Примечание В примере числа 3, 9, 15 и 18 являются 3 доминирующими над 2.
Метод find принимает три параметра:
substring (символ/подстрока) — подстрока, которую нужно найти в данной строке.
start (необязательный) — первый индекс, с которого нужно начинать поиск. По умолчанию значение равно 0.
end (необязательный) — индекс, на котором нужно закончить поиск. По умолчанию равно длине строки.
после чего принимается данная функция
>>> string = "Добро !"
>>> start = string.find("п")
>>> end = string.find("ь") + 1
>>> print("Индекс первой буквы 'о' в подстроке:", string.find("о", start, end))
Индекс первой буквы 'о' в подстроке: -1
var a: array[1..5] of integer;
s: char;
min, i, j, k: integer;
begin
writeln('Введите массив:');
for i:=1 to 5 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 5 do
write(a[i], ' ');
writeln;
write('Введите символ (x, y, z): ');
readln(s);
if (s = 'x') or (s = 'X') then
begin
min := a[1];
k := 1;
for i:= 2 to 5 do
if min > a[i] then
begin
min:= a[i];
k:= i;
end;
writeln('Min = ', min, ', Index = ', k);
end;
if (s = 'y') or (s = 'Y') then
begin
for i:= 1 to 5 do
for j:= 1 to 4 do
if a[j] > a[j + 1] then
begin
k:= a[j];
a[j]:= a[j + 1];
a[j + 1]:= k;
end;
for i:=1 to 5 do
write(a[i], ' ');
writeln;
end;
if (s = 'z') or (s = 'Z') then
begin
for i:=1 to 5 do
k:= k + a[i];
writeln('Сумма = ', k);
end;
end.