сервис вопросов и ответовсоставьте программу замены в слове,введенном с клавиатуры,всех букв"и" на"а"и"а"на"о".сосчитать количество замен.отладка программы для слова"накидка"
10-11 класс|
|
Gagulya
02 сент. 2014 г., 17:10:00 (9 лет назад)
Lehabesov111
02 сент. 2014 г., 17:52:58 (9 лет назад)
Program Stroka;
Uses Crt;
var a:string;
c1,c2, i,k:integer;
begin
clrscr;
write('Введите строку: ');
readln(a);
k:=length(a);
c1:=0;c2:=0;
// Первый проход меняем "и" на "a"
for i:=1 to k do if(a[i]='и') or (a[i]='И') then
begin
a[i]:='а';
c1:=c1+1;
end;
// Второй проход меняем "а" на "о"
for i:=1 to k do if(a[i]='а') or (a[i]='А') then
begin
a[i]:='о';
c2:=c2+1;
end;
writeln;
writeln('Строка после всех замен:',a);
writeln('Замен и на а:',c1);
writeln('Замен a на о:',c2);
readkey;
end.
Ответить
Другие вопросы из категории
Составить программу для вычисления величины S по легкой формуле
ВНИМАНИЕ!!!! помогите дам 40 баллов!!!!!!!!!!!!!!!!!
Подскажите, пожалуйста!
Как построить график y=sin2x на интервале от -10 до 10 с шагом 0,5 в MS Excel?
паскаль .вычеркиватели.
Вычеркните из слова Х буквы, стоящие на чётных местах.
Читайте также
1) Написать программу для вычисления суммы цифр пятизначного числа , введенного с клавиатура
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
1.Составить программу, которая увеличивает каждый элемент настоящей таблице х [1 .. 10] на 1. 2. составить программу, замены положительных
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.
1)Проверка условия и ветвление в алгоритме.Напишите программу которая анализирует введённое с клавиатуры число и выдает на экран:
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.
Исполнитель кузнечик живёт на числовой оси. Кузнечик умеет выполнять команды: "вперёд N" (кузнечик прыгает вперёд на N единиц), назад М (кузнечик
прыгает назад на М единиц). Передвижения N и М могут принимать любые целые положительные значения. Известно, что кузнечик (?выполняя?) программу из 70 команд, в которой команд "назад 2" на 20 больше, чем команд "вперёд 3". Других команд в программе не было. На какую одну команду можно заменить эту программу, чтобы кузнечик оказался в той же точке, что и после выполнения программы.
Написать программу в паскале, которая после введенного с клавиатуры числа(в диапазоне от 1 до 99), обозначающий денежную единицу, дописывал слово
"Копейка". Например ,5 копеек,41 копейка и тд.
Вот мои попытки создать программу:
Program Kopeika;
Var a:integer;
begin
Writeln('Vvedite chislo');
Readln(a);
Case a of
'1,21,31,41,51,61,71,81,91': a:='Kopeika ';
'2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94': a:='Kopeiki ';
'5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..99': a:=' Kopeek';
end;
Readln;
end.
Вы находитесь на странице вопроса "составьте программу замены в слове,введенном с клавиатуры,всех букв"и" на"а"и"а"на"о".сосчитать количество замен.отладка программы для слова"накидка"", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.