— Внимание! Внимание! — вырвалось у Бильбо. — В чем дело? — спросили гномы и разом обернулись к нему, а он, не в силах совладать с собой, воскликнул:
— Послушайте, что я скажу!
— Мне кажется, вам надо пойти на Восток и на месте выяснить, что и как. В конце концов, существует Боковой Вход, и драконы когда-нибудь да спят, и, если посидеть у входа подольше, что-нибудь непременно придет в голову.
Напишите программу, которая определит, есть ли в строках что-нибудь стоящее. А стоящее – это если в строке есть туннель в любой форме (достаточно проверить туннел) или то слово, которое будет введено первым.
Формат ввода
Вводится строка – слово для проверки.
Затем вводится число – количество строк, а затем сами строки.
Формат вывода
Если количество стоящих строк не менее трех, то вывести МЫСЛЬ ЕСТЬ! Иначе вывести ПОСИДИМ ЕЩЕ.
Затем вывести процентное отношение неподходящих строк к их общему количеству.
var x, m: integer;
begin
x := 6;
m := x + 1;
end.
2.
var x, y: integer;
begin
x := 6;
y := 3;
if x>y then writeln('x>y - istinno')
else writeln('x>y - lozhno')
if x=y then writeln('x=y - istinno')
else writeln('x>y - lozhno')
if x<y then writeln('x<y - istinno')
else writeln('x>y - lozhno')
end.
3.
1.
var x, m: integer;
begin
x := 6;
if x-1>0 then m := x - 1;
end.
4.
var x, y, m: integer;
begin
x := 6;
y := 3;
if x-y>0 then m := x - y
else writeln('raznost ne imeet naturalnoe chislo')
end.
5.
var x, y, m: integer;
begin
x := 6;
y := 3;
m := x * y;
end.
6.
var x, y, m, n: integer;
begin
x := 6;
y := 3;
n := x / y;
m := x mod y;
end.