В строке S1 заменить нечётные символы на строку S2. Программа в Паскале

Знания

Информатика

1 ответ:

aleksfm [6]1 год назад

0 0

Var
S1,S2,S3:string;
i:integer;

Begin
Write('S1: ');ReadLn(S1);
Write('S2: ');ReadLn(S2);
For i:= 1 to Length(S1) do
if i mod 2 = 0 then S3:=S3+S2
else S3:=S3+S1[i];
S1:=S3;
Write('S1: ',S1);
End.

Пример:
S1: 123456789
S2: ||
S1: 1||3||5||7||9

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

Паскаль.Заполнить одномерный массив случайными числами от -70 до 30,посчитать сумму отрицательных элементов массива и вычислить

Куделиха [63]

Var
a:array[1..1000] of integer;
n, i, suma:integer;
begin
write('введите количество чисел массива ');
readln(n);
suma:=0;
for i:=1 to n do
begin
a[i]:=random(101)-70;
if(a[i]<0) then
suma:=suma+a[i];
end;
write('массив ');
for i:=1 to (n-1) do
write(a[i],', ');
writeln(a[n],' ');
writeln('сумма отрицательных элементов ',abs(suma));
end.

0 0

4 года назад

№ 3 информатика 4 класс Бененсон: Составьте алгоритм, цель которого вывести на экран наименьшее из значений переменный В, С и D.

petya32432

Решение во вложенных файлах

0 0

4 года назад

Вид информации - зрительная Звуковая вкусовая Обонятельная осязательная какие чувства у этих видов информации

Dekkie

Ответ : Органы чувств))

0 0

4 года назад

Ребят помогите решить задачу на c++ срочно надо вот задачи Однажды Пятачок пришел к ослику Иа-Иа и застал того в величайшей заду

Elanita

#include <iostream>using namespace std;
int main(){ int first, second; cout << "Enter f, s"; cin >> first >> second; cout << "sum: " << (first + second) << "\n\n"; system("pause");}

Поставь пожалуйста лучший ответ

0 0

4 года назад

Приведите примеры использования компьютера в качестве инструмента для работы с информацией: в домашних условиях; в школе; в разн

sklkvdi [36]

В школе для работ с информацыей

0 0

4 года назад