Программы написать на питоне 1. На вход программе подается натуральное число. Найдите количество цифр не больше 6 в числе. 2. На вход программе подается 2 натуральных числа. Определите у какого числа сумма цифр больше. В ответе выведите 1, если сумма цифр 1 числа больше, 2, если второго, 0 если сума цифр одинаковая 3. На вход программе подается натуральное число. Найдите самую маленькую цифру числа. При решении этой задачи повторите тему поиска минимума. 4. На вход программе подается натуральное число. Напишите программу, которая выводит первую цифру числа. 5. На вход программе поступает последовательность целых чисел по одному числу в каждой строке, все числа последовательности отличны от нуля. Количество чисел неизвестно. Ввод данных заканчивается вводом числа 0. После этого водятся числа x и y. Найдите количество чисел, попадающих в отрезок [x, y]
Ответы
// 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.
Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш
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.
Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Принцип построения "звезда-кольцо" и фото этого построения.
Автор: stepa19806966
Сор по информатике 6 класс 1 четверть
Автор: Getmantsev417
1ас(16-ричная система) + 358 (16-чная) = ? объясните как считать в столбик это
Автор: Vladimirovna Yevtodeva
Подсчитать сумму элементов кратных 5
Автор: a800000
В каких сферах мы используем компьютер
Автор: Анна Елена
Какой вход AUX на старых касетных магнитофонах
Автор: Ivan1568
Чим відрізняються алгоритми перейменування різних об'єктів файлової системи?
Автор: elenaperemena8
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;
}
}
}