<span>лрчсупгхлнг, нсптябхзу, ъзосезн
</span>
Поля для ввода, иконки в средах программирования, кнопки и т.д
В них вводится текст. А также с помощью диалоговых окон можно осуществлять общение юзера и системы.
В мултимедии есть аудио фото видео а видео это запись тоесть в мултимедии хранятся фаилы а видео запись
var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.
Var x,y,z:string; k,p,l:integer;
begin
writeln('Введите строку:');
readln(x);
writeln('Введите слово:');
readln(y);
z:=x; k:=0;
l:=length(y);
p:=pos(y,x);
while p>0 do
begin
k:=k+1;
delete(z,p,l);
p:=pos(y,z);
end;
writeln('k = ',k);
end.
Пример:
Введите строку:
мама мыла раму, мама мыла окно.
Введите слово:
мама
k = 2