НУЖНА Наказанный город
Контрольная работа
макс.
Дедлайн: 24 дек. 12:18
Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Нильс взобрался на спину гусыни, и она полетела над морем так низко, что крылья её едва не задевали воду.
Крепко ухватившись за шею Акки, Нильс свесился вниз.
Сквозь прозрачную зеленоватую воду глубоко-глубоко в море он увидел город. Тот самый город, по которому он только что бегал. Вон часовая башня, вон ворота. Стражники по-прежнему ходят по стене с копьями в руках, на улицах по-прежнему толпится народ.
Напишите программу, которая выберет наиболее точные описания заколдованного города, преобразует их в числа и выведет все значения из диапазона с определенным шагом.
Формат ввода
Вводится число n (двузначное), затем строки, пока не будет введена пустая строка. Вводимые строки могут быть или целым числом, или строкой, в которой нет цифр.
Формат вывода
Среди всех строк – целых чисел – выбрать наибольшее и наименьшее числа, в которых есть хоть одна цифра из n.
Если встретилась строка со словом наказание, ввод нужно прекратить и перейти к выводу.
Вывести нужно все числа от наибольшего до наименьшего с шагом, равным утроенному числу десятков во введенном числе. Если нашлось только одно – вывести его.
Пример 1
Ввод Вывод
27
Чужих приезжих людей жители Винетты боялись больше всего.
37
Может, он разбойник, вор?
42
79
Не понравилось это морскому царю.
64
80
Рассердился он, разбушевался и придумал наказание.
123
79 73 67 61 55 49 43 37
Пример 2
Ввод Вывод
91
1187
1024
Не позволю им хозяйничать в моём море!
1191
1059
Не хотят, чтобы видели их город, так ладно же, никто больше и не увидит его.
1119
1036
[0, 0, "a", 1]
[1, 1, "b", 2]
[1, 2, "bb", 3]
[2, 2, "b", 4]
[1, 3, "bbb", 5]
[2, 3, "bb", 6]
[3, 3, "b", 7]
[1, 4, "", 8]
[2, 4, "bbb", 9]
[3, 4, "bb", 10]
[4, 4, "b", 11]
[1, 5, "", 12]
[2, 5, "", 13]
[3, 5, "bbb", 14]
[4, 5, "bb", 15]
[5, 5, "b", 16]
[0, 6, "aa", 17]
[6, 6, "a", 18]
[6, 7, "aa", 19]
[7, 7, "a", 20]
[6, 8, "aaa", 21]
[7, 8, "aa", 22]
[8, 8, "a", 23]
[5, 9, "baaab", 24]
[9, 9, "b", 25]
s = "aaaab"
n = 0
for r in 0...s.size
for l in 0..r
t = s[l..r]
if t.reverse == t
n += 1
p [l,r,t,n]
end
end
end
N, s, i: Integer;
s1: real;
begin
readln(N); {общий ввод для всех задач}
if N < 0 then
writeln('Задача 1. N=', 0)
else writeln('Задача 1. N=', N + 4);
s := 0;
for i := 1 to n do
s := s + i;
writeln('Задача 7. 1+2+3+…+N=', s);
write('Задача 9. Последовательность от N до 1 = ');
for i := n downto 1 do
write(i, ' ');
writeln();
s1 := 0;
for i := 1 to n do
s1 := s1 + i / 10;
writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
write('Задача 13. Последовательность квадратов от 1 до N = ');
for i := 1 to n do
write(i * i, ' ');
writeln();
write('Задача 14. Последовательность первых N нечетных чисел = ');
for i := 1 to n do
write(2 * i - 1, ' ');
writeln();
if N > 0 then
writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
s := 0;
for i := 1 to n do
if n mod i = 0 then
s := s + i;
writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.