В целом, все, но FTP специализирован на файлах: <em>F</em><em>ile </em>Transfer Protocol
174×8=1392бита
342,3×1024=350 515,2
1)
(Слова разделяются одним пробелом)
var s:string;
l,i:integer;
begin
writeln('Введите строку:');
readln(s);
l:=length(s);
i:=l;
while s[i]<>' ' do
begin
s[i]:='!';
i:=i-1;
end;
writeln(s);
end.
Пример:Введите строку:
с клавиатуры вводится строка символов
с клавиатуры вводится строка !!!!!!!!
2)
var s1,s2:string;
p,i:integer;
begin
writeln('Введите строку:');
readln(s1);
p:=pos(';',s1);
s2:=copy(s1,1,p);
i:=p+1;
while s1[i]<>';' do i:=i+1;
s2:=s2+copy(s1,i,length(s1)-i+1);
writeln(s2);
end.
Введите строку:
abс;xyz;reо
abс;;reо
Const
<span>n=10; </span>
<span>var a:array[1..n] of integer; </span>
<span>s,p,k,i:integer; </span>
<span>begin </span>
<span>s:=0; </span>
<span>p:=1; </span>
<span>randomize; </span>
<span>for i:=1 to n do begin </span>
<span>a[i]:=Random(100); </span>
<span>if (a[i]>0) and (a[i] mod 3 =0) then k:=k+1; </span>
<span>p:=p*a[i]; </span>
<span>s:=s+a[i]; </span>
<span>write(a[i], ' ') </span>
<span>end; </span>
<span>writeln('Сумма = ',s); </span>
<span>writeln('Произведение = ',p); </span>
<span>writeln('Количество положительных и кратных 3-м = ',k); </span>
<span>end.</span>