айгерим106
08.10.2020 03:33

python используя только операции выделения подстроки и "сложения" строк постройте из строки inf = "информатика"как можно больше слов русского языка. Постарайтесь использовать наименьшее возможное число операции. Проверьте ваши решения с программы ​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Лопамрлш
02.02.2023 18:41
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
function IsAutomorph(s:string):boolean;
// Возвращает true, если строка s изображает
// автоморфное число, иначе возвращает false
begin
  var b:BigInteger;
  if BigInteger.TryParse(s,b) then
    Result:=sqr(b).ToString.Right(s.Length)=s
  else Result:=false
end;

begin
  var s:=ReadlnString('Введите натуральное число:');
  if IsAutomorph(s) then Println('Автоморфное')
  else Println('Не автоморфное')
end.

Тестовые решения:
Введите натуральное число: 12890625
Автоморфное

Введите натуральное число: 3245
Не автоморфное
0,0(0 оценок)
Ответ:
JlunaJlove
13.03.2020 01:01

Для того, чтобы последовательность была возрастающей, для каждого очередного элемента new и предыдущего old должно выполняться условие new > old. Любое нарушение данного условия приводит к тому, что последовательность не может быть возрастающей.

Program Sequence;

var old, new : real; 

f : boolean; 

begin
write('Введите x=');
readln(old);
write('Введите x=');
readln(new);
f:=true;
repeat if new<=old then f:=false;
old:=new;
write('Введите x=');
readln(new);
until new=0;
if f then writeln( 'Последовательность возрастающая')
else writeln( 'Последовательность не является возрастающей');
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота