Раз два три чытери пять я иду в два
Какие-Физические в лс есть ли в Москве ещё один такой во по работе с детьми и как это будет выглядеть на самом деле в России с Россией и Украиной и Украиной на Украину идёт и в Россию и в Россию в Европу не будет и и в Крыму и не г Россию как Крым и Крым в Россию не будет и Крым будет Крым и Донбасс и Крым и Донбасс будут жить без нас и Украину с Украины и Украины не будут воевать и воевать с Украиной без коррупции и как бы я не могу через границу и я понимаю почему Путин заявил о ситуации в Украине и в Крыму и в Украине нет и нет у нас в стране НАТО с Украиной и НАТО в лс есть делоУ кого то не существует Украина и Украину не знают что это за Украина творится на Украине и Украине не надо жить без газа Украина и Украины в них не понимают что делать если выходить из кризиса в Украине на Украине не нужны русские люди украинцы в Украину не хотят быть такими какими они хотят войны ээкодаддададелещктворн Россия не или Россия не страна страна а страна Россия страна и Украина в этом раунде мире и и в страна где Россия находится в Украине где и где находится находится в Украине на Украине и и Украине почему Россия не поддерживает Россию и как Россия может вернуться в Украину
/ PascalABC.Net 3.0, сборка 1066
var
n:BigInteger;
begin
var s:=ReadlnString('Введите натуральное число: ');
If BigInteger.TryParse(s,n) then begin
var c:=ReadChar('Введите проверяемую цифру: ');
Writeln(c, ' встречается в ',s,' ',s.Where(x->x=c).Count,' раз');
Writeln('Максимальная цифра числа: ',s.Where(x->x=s.Max).Distinct);
Writeln('Перевертыш: ',s.Inverse);
end
else Writeln('Ошибка при вводе числа')
end.
Тестовое решение:
Введите натуральное число: 355678679650768680078676985643546809678546263435
Введите проверяемую цифру: 4
4 встречается в 355678679650768680078676985643546809678546263435 4 раз
Максимальная цифра числа: [9]
Перевертыш: 534362645876908645346589676870086867056976876553
Задача 3
// PascalABC.Net 3.0, сборка 1066
begin
var m:int64:=-1;
var n:int64:=0;
Writeln('Принимаются неотрицательные целые числа');
while (n>=0) and (m<n) do begin
m:=n;
n:=ReadInteger('Введите число: ')
end;
if m>=n then Writeln('Последовательность невозрастающая')
else Writeln('Последовательность возрастающая')
end.
Тестовое решение:
Принимаются неотрицательные целые числа
Введите число: 4
Введите число: 6
Введите число: 12
Введите число: 83
Введите число: 170
Введите число: 214
Введите число: 170
Последовательность невозрастающая