1 год назад

Написать программу,которая считает в строке все символы A и изменяет на символ B

1 ответ:

0 0

Var
   S:string;
   i:integer;
   A,B:char;
Begin
Write('Введите текст: ');
ReadLn(S);
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For i:= 1 to Length(S) do
    if S[i] = A then S[i]:=B;
WriteLn(S)
End.

Читайте также

Пропускная способность канала связи 10 Мбит/с. Канал подвержен воздействию шума, поэтому избыточность кода составляет 20\%. Опре

incognito1 [238]

100+20\%=120Кб=0,12 Мб

0 0

2 года назад

Обсуждая результаты соревнования, друзья спорили: «Первой была синяя Honda», – сказал первый. «Нет, это был желтый Renault», –

5724072

Ответ: 4
т.к. Ответ 1 и 2 не подходят сразу потому, что в условии написано что каждый ошибся 1 раз. 3 условие говорит нам о том, что машина не синяя т.к. в ответах машин других марок нет.

0 0

4 года назад

Помогите 3 и 5...надо составить программу Паскаль

R0808

3.

Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (X>=-2)and(Y<=-X)and(X*X+Y*Y>=4) then WriteLn('Попал')
else WriteLn('Мимо')
End.

5.

Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (Y<=0)and(X>=0)and(Y>=X/2 -1) then Write('Попал')
else WriteLn('Мимо')
End.

0 0

1 год назад

Как сделать презентацию???И через какую программу?

Александра-В [7]

Microsoft Office Power Point

0 0

4 года назад

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

Что определяет для массива X[1..m, 1..m] следующий алгоритм For i:= 1 to m do For j:= 1 to m do If i mod 2 < > 0 then X[j,

Yuliya Skorobogatykh

Держи программу. Вывод сделай сам. Верного ответа я не вижу...

const m = 7;

var

X: array [1..m, 1..m] of integer;

A, i, j: integer;

begin

randomize;

A := 100;

for i := 1 to m do

begin

for j := 1 to m do

begin

X[i, j] := random(20);

write(X[i, j]:6);

end;

writeln;

end;

write('======================');

writeln('======================');

for i := 1 to m do

for j := 1 to m do

if i mod 2 <> 0 then

X[j, i] := A;

for i := 1 to m do

begin

for j := 1 to m do

begin

write(X[i, j]:6);

end;

writeln;

end;

end.

0 0

4 года назад