ПАСКАЛЬ, строка символов

10-11 класс

Напишите программу, которая:
а) определяет, сколько раз встречается в строке символ 'A'
б) заменяет символ 'А' символом ' * '
в) удаляет из строки символ 'В'
Пожалуйста, помогите! :с

Tema4321 13 июля 2015 г., 0:29:42 (8 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

Hockeyist17

13 июля 2015 г., 2:52:38 (8 лет назад)

а)Program z1;
Var S:string;
i,n,d:integer;
Begin
read(s);
d:=length(s);
n:=o;
For i:=1 to d do
If copy(S,i,1)='A' then
n:=n+1;
writeln(n );
End.

Хороший ответ

0 Жалоба Ответить

+ 0 -

Remixx

13 июля 2015 г., 4:22:49 (8 лет назад)

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 Жалоба Ответить

Ответить

Другие вопросы из категории

Sara7474 / 29 июня 2015 г., 10:45:27

Написать программу, которая вводит с клавиатуры последовательность из 10 вещественных чисел, считает сумму и среднее арифметическое этих чисел. нужно

сделать для этой задачи блок-схему:-):-):-)заранее спасибо