составьте программу, которая :в строке "Я учусь в школе" заменяет слово "в школе" на " в 10-м классе".
10-11 класс
|
Program 1;
Uses CRT;
Var
s: String;
Begin
Writeln('Введите фразу');
read(s);
if (s='Я учусь в школе') then
writeln ('Я учусь в 10-м классе')
end.
var
s: string;
begin
s:= 'Я учусь в школе'; //Присваиваем начальное значение строковой переменной
writeln(s); //Печатаем начальное значение
Delete(s, 11, 5); {Удаляем из строки s, начиная с 11 позиции 5 символов (т.е. удаляем слово школа)}
Insert('10-м классе', s, 11); {Вставляем строку '10-м классе' в строку s, начиная с 11 позиции}
writeln(s); //Печатаем получившуюся строку
end.
Другие вопросы из категории
На вход программе сначала подается значение n<=100 – количество элементов в массиве. В следующей строке входных данных расположены сами элементы массива – целые числа, по модулю не превосходящие 30000. Выдайте количество искомых элементов массива.
элементовнайти минимальный элемент и его индекс.
Читайте также
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
к
3.составить прогу которая находит индекс последней запятой в введенном тексте
массив.Найти сумму определённого элемента;количество элементов,стоящих на нечетных местах;произведение элементов,кратных 5.