Var
s, sl, sc: string;
i, k: integer;
begin
write('Введите текст ');
readln(s);
write('Введите слово ');
readln(sl);
s:=' '+s+' ';
<span> sl:=' '+sl+' ';</span>
for i := 1 to length(s) - length(sl) + 1 do
begin
sc := copy(s, i, length(sl));
if sc = sl then inc(k);
end;
if k = 0 then writeln('Не встречается')
else writeln('Встречается ', k, ' раз');
end.
Var i,s: integer;
begin
i:=30; s:=0;
repeat
s:=s+i;
i:=i+5;
until i>60;
writeln('сумма = ',s);
<span>end.
</span>
Я смог решить только 7
program nomer;
var a,n,x:integer;
begin
while n<=0 do
begin
writeln('Введите число');
readln(x);
if (x mod 2)=0 then a:=a+x;
writeln('хотите закончить ввод? да=1, нет=0');
readln(n);
end;
writeln(a);
end.
Программа, которая формирует массив из 7 случайных чисел из промежутка [5;10] и вычисляет их сумму