Помогите пожалуйста составить программу. 1.Составьте программу, которая удаляет в строке s все точки. 2.Составьте программу, которая заменяет в строке s
10-11 класс
|
буквы "о" на буквы "и", а буквы "и"- на буквы "о".
Первая
var s:string; i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='.' then Delete(s,i,1);
writeln(s);
readln;
end.
И вторая
var s:string; i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='о' then s[i]:='и' else if s[i]='и' then s[i]:='о';
writeln(s);
readln;
end.
Другие вопросы из категории
являются четными и кратными 3
700 Мб)если там уже записано файлов на 5Мб? Привести расчет
Читайте также
и пробелом, вводится с клавиатуры.
Помогите, пожалуйста.
Составить программу перевода натурального числа из десятичной системы счисления в двоичную
Составить программу табулирования функции заданной рекурентной формулой.
f(0)=1; f(1)=2; f(n+2)=2*f(n+1)-n
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.