На вход программе подается натуральное число n, затем n строк, затем еще одна строка — поисковый за Напишите программу, которая выводит все введенные строки, в которых встречается поисковый за Формат входных данных
На вход программе подаются натуральное число nn — количество строк, затем сами строки в указанном
количестве, затем один поисковый за Формат выходных данных
Программа должна вывести все введенные строки, в которых встречается поисковый за Примечание. Поиск не должен быть чувствителен к регистру символов.
Пример входных данных:
5
Я вас любил: любовь еще, быть может,
В душе моей угасла не совсем;
Но пусть она вас больше не тревожит;
Я не хочу печалить вас ничем.
Я вас любил безмолвно, безнадежно,
Любил
Вывод программы:
Я вас любил: любовь еще, быть может,
Я вас любил безмолвно, безнадежно,
Point=record
x,y:real
end;
function Distance2(a,b:Point):real;
{ возвращает квадрат расстояния между точками }
begin
Distance2:=sqr(b.x-a.x)+sqr(b.y-a.y)
end;
function Max(p,q:real):real;
{ возвращает максимальное из p,q }
begin
if p>q then Max:=p else Max:=q
end;
procedure Vvod(var a:Point;n:integer);
{ процедура с изменяемым параметром a }
begin
Write('Введите координаты точки ',n,': ');
Readln(a.x,a.y)
end;
var
a:array[1..3] of Point;
d1,d2,d3:real;
i:integer;
begin
for i:=1 to 3 do Vvod(a[i],i);
d1:=Distance2(a[1],a[2]);
d2:=Distance2(a[1],a[3]);
d3:=Distance2(a[2],a[3]);
if d1>d2 then
if d1>d3 then Writeln('Максимальное расстояние 1-2')
else
if d1=d3 then Writeln('Максимальное расстояние 1-2 и 2-3')
else Writeln('Максимальное расстояние 2-3')
else
if d1=d2 then
if d1>d3 then Writeln('Максимальное расстояние 1-2 и 1-3')
else
if d1=d3 then Writeln('Расстояния между всеми точками одинаковы')
else Writeln('Максимальное расстояние 2-3')
else
if d3>d2 then Writeln('Максимальное расстояние 2-3')
else
if d3=d2 then Writeln('Максимальное расстояние 1-3 и 2-3')
else Writeln('Максимальное расстояние 1-3');
end.
Тестовое решение:
Введите координаты точки 1: -2 1
Введите координаты точки 2: 4 5
Введите координаты точки 3: 2 -2
Максимальное расстояние 2-3
Ладно пусть будет...
var
a: array[1..10] of integer;
i,j,k,sum,d:integer;
h:real;
begin
d:=0;
for i:=1 to 10 do
for j:=1 to 5 do
begin
readln(a[j]);
if j=5 then
begin
sum:=0;
for k:=1 to 5 do
sum:=sum+a[j];
h:=sum/5;
writeln(h:0:0); // Если нужно точное значение, поменяйте последний 0 на 2
if h<7 then inc(d)
end;
end;
write(d, ' учеников - имеют средний ниже среднего');
end.
Эксель скинул