Program proga;
var str:string;
i,counter,pos:integer;
k:char;
a:array[1..255] of char;
begin
k:='*';
counter:=0;
writeln('Введите строку');
readln(str);
for i:=1 to length(str) do begin
if str[i]='А' then begin
inc(counter);
Delete(str,i,1);
Insert(k,str,i);
end;
end;
writeln('Количество символов А ',counter);
for i:=1 to length(str) do begin
a[i]:=str[i];
if a[i]='В' then
a[i]:=' ';
write(a[i]);
end;
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Средняя скорость передачи данных по некоторому каналу связи равна 28 800 бит/с.Сколько секунд потребуется для передачи по этому

Skalpel [631]

сначала нужно узнать размер 640*480*3=921600байт, переведем теперь в биты 921600*8=7372800 теперь делим и получаем секунды 7372800/28 800=256сек

0 0

4 года назад

Как посчитать количество информации в сообщении (I)?

Alena Dem [7]

Одна буква сообщения равна 1 байту, так как буква состоит из 8значного двоичного кода, 1знак которой равен 1 биту. 8 бит= 1 байт, считаешь кол-во букв в сообщении и умножаешь на 1 байт. получается кол-во байтов, то есть кол-во информации в сообщении

0 0

4 года назад

Укажите назначение для следующих пиктограмм

vovan-aver

1. Толщина - изменяет толщину линий для заданного инструмента.
2. Фигуры - содержит готовые фигуры для вставки.

0 0

4 года назад