Поговаривали, будто давным-давно кто-то из Туков взял себе жену из эльфов. Глупости, конечно, но и до сих пор во всех Туках и в самом деле проскальзывало что-то не совсем хоббитовское: время от времени кто-нибудь из клана Туков пускался на поиски приключений.
Вот и Бильбо, единственный сын Беладонны Тук, в замужестве Бэггинс, по виду и всем повадкам точная копия своего солидного благопристойного папаши, получил от Туков в наследство какую-то странность, которая только ждала случая себя проявить.
Напишите программу, которая будет искать во введенных строках странность в любом виде (достаточно проверить подстроку странност). А если найдет, то выведет среднее арифметическое их длин.
Формат ввода
Вводятся строки, пока не будет введена строка ЭЛЬФ.
Формат вывода
Вывести среднее значений длин строк, в которых есть странность. Если таких строк нет, вывести 0. Ничего округлять не нужно.
ПИТОН
var j, a, b, n: integer;
label 1;
begin
1: randomize;
a: = random (9);
b: = random (9);
write (a, '*', b, '=');
read (n);
if n = (a * b) then writeln ('відповідь вірний! ')
else writeln ('відповідь неправильний! ');
writeln ('продовжуватимеш? ');
writeln ('якщо так то натисни 1');
writeln ('якщо немає то натисни 2');
read (j);
if j = 1 then goto 1;
if j = 2 then writeln ('до побачення! ');
end.
начебто так, точно не пам'ятаю.