program slova;
uses crt;
var s, s1: string;
i, k: integer;
begin
clrscr;
writeln ('Vvedite text: ');
readln (s1);
write ('Slova soderjaschie ne bolee 3-h bukv: ');
for i:=1 to length(s) do
begin
if s[i]<>' ' then
begin
s1:=s1+s[i];
k:=k+1;
end
else
if k<=3 then
begin
write (', ',s1);
k:=0;
delete (s1,1,3);
end
else
begin
k:=0;
delete (s1,1,15);
end;
end;
readln;
end.
Вроде так, но у меня щас нету компилятора, так что проверить не могу. Если что-то будет ругаться, или вопросы какие - пиши в личку.
Var
s:string;
b:char;
i,n:integer;
begin
writeln('Введите текст');
readln(s);
writeln('Введите символ');
readln(b);
n:=length(s);
for i:=1 to n do
if s[i]=' ' then
s[i]:=b;
writeln(S);
<span>end.</span>
Ответ:
405 МБ.
Объяснение:
1) Изображение содержит 256 оттенков, поэтому один пиксель будет иметь информационный вес бит = 1 байт
2) Изображение весит 256*192*1 байт = 48 КБ
3) В сутках 24*60*60=86400 секунд, каждый снимок делается каждые 10 секунд, поэтому сделано будет 86400/10=8640 снимков.
4) Суммарный объем памяти, занимаемый снимками в сутки, равен 8640*48 КБ = 405 МБ.