1.
program Maratjkee4;
var s:string;
k,i,p:integer;
begin
k:=0;
writeln('vvedite slova');
readln(s);
for i:=1 to length(s) do
begin
p:=pos(' ',s)+1;
if (copy(s,p,1))='b' then k:=k+1;
delete(s,1,pos(' ',s)+1);
end;
writeln('kol=',k);
end.
2.
program Maratjkee5;
var a:array[1..10] of real; i,n,m:integer;real;
begin
clrscr;
writeln('vvedite n i m');
readln(n,m);
l:=m/2; randomize;
for i:= 1 to n do
a[i]:=random(10);
for i:=1 to n do
begin
write(a[i],'');
writeln;
end;
for i:= 1 to n do
a[i]:=a[i]/2;
for i:= 1 to n do
begin
write(a[i],'');
writeln;
end;
end.
Нажмите для просмотра прикрепленного файла Образец к блок-схемам я выложил, делал через программу но моему преподователю не нравится эти блок схемы и заставила переделывать
ПОМОГИТЕ ПОЖАЛУЙСТА!
| М | Теги!! |
