o-kate17
?>

Программы написать на питоне 1. На вход программе подается натуральное число. Найдите количество цифр не больше 6 в числе. 2. На вход программе подается 2 натуральных числа. Определите у какого числа сумма цифр больше. В ответе выведите 1, если сумма цифр 1 числа больше, 2, если второго, 0 если сума цифр одинаковая 3. На вход программе подается натуральное число. Найдите самую маленькую цифру числа. При решении этой задачи повторите тему поиска минимума. 4. На вход программе подается натуральное число. Напишите программу, которая выводит первую цифру числа. 5. На вход программе поступает последовательность целых чисел по одному числу в каждой строке, все числа последовательности отличны от нуля. Количество чисел неизвестно. Ввод данных заканчивается вводом числа 0. После этого водятся числа x и y. Найдите количество чисел, попадающих в отрезок [x, y]

Информатика

Ответы

Anna389
На Java:

class SearchPalin{
 public static void main(String args[]){
  String palinString = new java.util.Scanner(System.in).nextLine();
  System.out.print("\nПалиндром(-ы):\n  ");
  for(int wordStart = 0, wordEnd = 0; wordEnd<palinString.length(); wordEnd++)
   if(wordEnd+1==palinString.length() || palinString.charAt(wordEnd+1)==' '){
 String wordBeginning = "", wordEnding = "";
 for(int wordBe = wordStart;wordBe<wordEnd+1;wordBe++)wordBeginning+=palinString.charAt(wordBe);
 for(int wordEn = wordEnd;wordStart-1<wordEn;wordEn--)wordEnding+=palinString.charAt(wordEn);
 if(wordBeginning.equals(wordEnding)){
  for(int palinWord = wordStart;palinWord<=wordEnd;palinWord++)System.out.print(palinString.charAt(palinWord));
  System.out.print("\n  ");
 } wordStart = wordEnd+2;
   }
 }
}
dimanov
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var s:=ReadLnString('Вводите:');
  s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш

Вариант, если исключить однобуквенные:

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var s:=ReadLnString('Вводите:');
  s.ToWords.Where(x->x=ReverseString(x)).
    Where(x->x.Length>1).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Программы написать на питоне 1. На вход программе подается натуральное число. Найдите количество цифр не больше 6 в числе. 2. На вход программе подается 2 натуральных числа. Определите у какого числа сумма цифр больше. В ответе выведите 1, если сумма цифр 1 числа больше, 2, если второго, 0 если сума цифр одинаковая 3. На вход программе подается натуральное число. Найдите самую маленькую цифру числа. При решении этой задачи повторите тему поиска минимума. 4. На вход программе подается натуральное число. Напишите программу, которая выводит первую цифру числа. 5. На вход программе поступает последовательность целых чисел по одному числу в каждой строке, все числа последовательности отличны от нуля. Количество чисел неизвестно. Ввод данных заканчивается вводом числа 0. После этого водятся числа x и y. Найдите количество чисел, попадающих в отрезок [x, y]
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

menesmir
tatry2005
yurievaalxndra55
Валентинович133
ganzashop
dkvsadovoe
Liliya-buc
jaksonj326
pbttehnology
Gennadievna bessonov
Ignateva737
Lolira64
Сурат1199
Сергеевич1386
Shevtsov1818