2, 6, 11
................................................................................
var
c: string;
d: byte;
b: boolean;
begin
readln(c);
foreach a: string in System.IO.File.ReadAllLines('in.txt') do
begin
d += 1;
b := false;
if (pos(c, a) > 0) then
begin
b := true;
writeln('Вхождение! Строка №', d, '. Количество вхождений: ', (a.Length - a.Replace(c, '').Length)/c.Length);
end;
end;
writeln(not b ? 'There aren`t :(' : '');
<span>end.
Тут получится сухая блок-схема, но длинная... Воть
Не люблю их</span>
Тебе две программы или одну?
// Язык Pascal
Var i : integer;
Begin
for i:= 5 to 20 writeln(i);
for i:=45 to 60 writeln(i);
end.
Да, я серьезно, это будет работать. Это две задачи в одной. Поползут цифры в столбик, с 5 до 20, потом резко с 45 до 60, а потом программа закроется
https://bibliofond.ru/view.aspx?id=657117