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
4*1024 = 4096 МБ
4096 - 800 = 3296 МБ (800 МБ есть, нужно ещё 3296 МБ)
3296 : 512 = 6.4 флешек, округляем получаем 7 флешек.
Ответ: 3
Петр Лисицын-информатика
Андрей Соколов-русский
Василий Журавлев- математика
(А V В) Λ (А V С)
Для удобства заменим ∧ на · и ∨ на +
(А + В) · (А + С) - умножаем
A·A + A·C + A·B + B·C
A + A·C + A·B + B·C - выносим A за скобку
A · (1 + C + B) + B·C
A · 1 + B·C
A + B·C
Обратная замена
A ∨ B ∧ C
Что эквивалентно высказыванию 1)