В бутылке-приворотное зелье
В стакане-мертвая вода
В кувшине-молоко
В банке-живая вода
Объяснение: так как мертвая вода и молоко не в бутылке, для нее остается 2 жидкости-приворотное зелье и живая вода. В банке не зелье и не мертвая вода, значит или молоко или живая вода. Так как стакан стоит около банки и сосуда с молоком, в банке не молоко, а живая вода. Для бутылки остается приворотное зелье. Остается определиться со стаканом и кувшином. Так как стакан стоит возле банки, в которой мы уже знаем, живая вода и сосудом с молоком то понятно, что в кувшине-молоко,а для стакана осталась мертвая вода.
В введенном промежутке натуральных чисел найти те, количество делителей у которых не меньше введенного значения. Для найденных чисел вывести на экран количество делителей и все делители.
Пользователь вводит числовой промежуток - минимальное (a) и максимальное (b) числа. После этого запрашивается искомое количество делителей.
Во внешнем цикле перебираются натуральные числа от a до b. При этом в конце каждой итерации a увеличивается на 1, тем самым приближаясь к b.
В теле внешнего цикла вводится счетчик (m) количества делителей очередного натурального числа. Далее во внутреннем цикле перебираются числа (i) от 1 до a. Если i делит нацело a, то счетчик увеличивается на 1.
После этого значение счетчика сравнивается с требуемым количеством делителей. Если у очередного натурального числа не меньше делителей, чем требуется, то оно и количество делителей выводятся на экран. После этого в цикле снова ищутся делители, но теперь уже они просто выводятся на экран.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Слово называется палиндромом, если оно читается одинаково, как слева направо, так и справа налево. требуется определить, какое минимальное количество букв надо добавить к входному слову справа, чтобы оно стало палиндромом. на вход программе подается строка, состоящая не более чем из 255 символов. выведите искомое число. паскаль
Function isPali(ss : String) : Boolean;
Begin
If Length(ss)>0 then isPali:=(ss[1]=ss[Length(ss)]) and isPali(Copy(ss,2,Length(ss)-2))
else isPali:=True;
end;
Function NtoPali(ss : String) : Integer;
Begin
If isPali(ss) then NtoPali:=0 else NtoPali:=1+NtoPali(Copy(ss,2,Length(ss)-1));
end;
Begin
s:='abcdc'; // Readln(s);
Writeln(NtoPali(s));
end.