1. Рассматривается множество целых чисел, принадлежащих числовому отрезку (1007, 746001), в которых первая цифра – наибольшая из всех цифр, и при этом они имеют четное количество цифр 5 (не менее 2-х), Найдите
количество таких чисел и наибольшее такое число, начинающееся с 50, в ответе запишите дна целых числа: сначала
количество, затем наибольшее такое число, начинающееся с 50,
2.Рассматривается множество целых чисел, принадлежащих числовому отрезку (2020; 64 7038), у которых сумма цифр
меньше 10, и при этом наименьшая цифра не встречается среди первых трёх цифр. Найдите количество таких чисел и
такое число, наиболее близкое к среднему арифметическому значению этих чисел. В ответе запишите дна целых
числа: сначала количество, затем такое число, наиболее близкое к среднему арифметическому значение этих чисел,
3.Рассматривается множество целых чисел, принадлежащих числовому отрезку [1082; 129932), в которых цифры
записаны в порядке убывания при их прочтении слева направо, и при этом количество делителей каждого из этих
чисел кратно трём. Найдите количество таких чисел и наибольшее такое число, начинающееся с цифры 7. Вответе
запишите два целых числа: сначала количество, затем наибольшее такое число, начинающееся с цифры 7,
var s,a:string;
begin
write('Введите строку : ');
readln(s);
write('Введите слово : ');
readln(a);
if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
else writeln('В строке такого слова нет');
end.
Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть
Тест №2
Введите строку : Всем привет!
Введите слово : админ
В строке такого слова нет
begin
var a:=ArrRandom(100,-20,20); a.Println;
WritelnFormat('Положительных {0}, отрицательных {1}',
a.Where(x->x>0).Count,a.Where(x->x<0).Count)
end.
Тестовое решение:
-19 12 19 -17 -5 10 -13 -2 -4 16 -6 -12 -3 5 -3 -6 -1 8 -19 -14 -1 9 -10 20 -7 20 5 17 -7 11 -5 -14 -19 -18 16 13 11 -2 -3 9 1 11 10 -13 8 -14 -15 -13 8 5 -7 20 -20 18 2 -8 2 19 10 -5 -15 -10 -16 5 1 -12 -14 -6 9 5 3 -20 -9 -7 6 9 20 -18 -8 -13 14 -3 -11 9 -3 -5 -15 -16 0 4 -10 12 8 -19 4 -10 6 -15 7 0
Положительных 44, отрицательных 54