Нужно составить нормальный алгоритм Маркова! Алфавит ABCD. Заменить каждый чётный элемент на C и каждый 4ый на D.
10-11 класс
|
Program Markov;
uses crt;
var a:string; i,b:integer;
begin
Clrscr;
writeln('Введите слово ');
read(a);
b:=length(a);
for i:=1 to b do begin
If i mod 4 = 0 then
begin
delete(a,i,1);
insert('D',a,i);
end else
If i mod 2 =0 then begin
delete(a,i,1);
insert('C',a,i);
end;
end;
writeln(a);
readln;
end.
Другие вопросы из категории
которой сначала напечатайте элементы массива в строчку, а на следующей строчке - произведение элементов с чётными индексами". Заранее спасибо.
Читайте также
1) Найти количество отрицательных элементов в массиве А [3,8].
2) Заполнит и вывести массив Р [6,7], запросить номер строки и вывести её на экран.
3) Заполнить и вывести массив Р [6,7], запросить номер строки, заменить все её элементы на 5 и вывести новый массив.
4) В квадратной матрице А [10,10] заменить элементы главной диагонали на 0.
Всё нужно очень срочно
равны,то найдите и выведите удвоенную сумму этих чисел