1)
var s: string; i: byte;
begin
writeln('Введите строку:');
readln(s);
i:=1;
while i<=length(s) do begin
delete(s,i,1);
insert('a',s,i);
i:=i+2;
end;
writeln(s);
end.
---------------------------------------------
Введите строку:
Меняем нечетные символы на а
aеaяaмaнaчaтaыa aиaвaлa aаaа
---------------------------------------------
2) это задание решено в другом Вашем вопросе
znanija.com/task/22037051
Ответ:
Получилось 3, только не понятно или 3, или 3 положительных результатов * 5 кодов программ = 25.
Объяснение:
Вводим S если S больше или равно 2*K то выводиться да.
Вот и смотри где мы вводим S>=2*K
Объем изображения I=k*i*n , где k- количество точек, i- глубина цвета, n - количество слайдов
Глубина цвета i=㏒₂N, где N-количество цветов палитры
i=㏒₂256=8
I=1024*512*8*10/(8*1024*1024)= 5 Мбайт
Объем звука:
I= i*n*t, где i-глубина кодирования звука, n- частота дискретизации, t- время звучания.
I= 16*32000*40/(8*1024*1024)= 2,44 Мбайт
Общий объем слайд-шоу: 5 Мбайт+2,44 Мбайт= 7,44 Мбайт
Прибавляем сюда еще 10 Кбайт служебной информации.
Объем флешки: 2 Гбайт= 2048 Мбайт
Свободное место 10%= 204,8 Мбайт
Слайд-шоу уместится на флешку