Реферат: 10 задач с решениями программированием на Паскале
st:=A[i];
while pos('мама',st)<>0 do begin k:=k+1;delete(st,pos('мама',st),4); end;
writeln('кол-во слов мама в ',i,'-ой строке ',k);end;end;
begin
vvod(5,A);
moped(5,A);
end.
Задача 7.
Условие: Дан массив из 7 строк, в каждой из которых не более 50 элементов. Удалить из каждой строки все пробелы и записать количество удалённых пробелов в конец этой строки.
Программа:
program S2_Z7;
type s=string[50]; ms=array[1..100] of s;
var A:ms;
procedure vvod(m:integer;var x:ms);
var i:integer;
begin
for i:=1 to m do begin writeln('введите ',i,'-ю строку');
readln(A[i]);end; end;
procedure prob(m:integer;var x:ms);
var i,k:integer;st,p:s;
begin
for i:=1 to m do begin
st:=x[i]; k:=0;
while pos(' ',st)<>0 do begin delete(st,pos(' ',st),1);k:=k+1;end;
str(k,p);
insert(p,st,length(st)+1); writeln(i,'-ая строка:', st);end;
end;
begin
vvod(7,A);prob(7,A);
end.
Задача 8.