составить программу , которая в тексте удаляет все пробелы.
10-11 класс
|
Program z1;
var st:string;
begin
writeln('Введите строку');
readln(st);
while (pos(' ',st) <> 0) do
begin
delete(st, pos(' ',st), 1);
end;
writeln(st);
readln;
end.
Другие вопросы из категории
1. 7битов
2. 14 битов
3. 14байтов
4. 56 битов
5. 56 байтов
а) треугольник с вершинами (100. 100), (150. 100). (30,170);
б) прямоугольник с вершинами (80. 30). (170. 30).
(170.150). (80.150):
в) пятиугольник с вершинами (100. 100). (150. 100). (170.
120).
(150. 140), (100. 140), (80. 120):
г) шестиугольник с вершинами (120. 100). (140.120).
(140,140),(120.160), (100.140), (100.120):
Читайте также
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
к
3.составить прогу которая находит индекс последней запятой в введенном тексте
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
2)Напишите программу, которая выводит в столбик цифры введённого числа, начиная с последней. Используйте процедуру.
3)Напишите программу, которая выводит в одну строчку все делители переданного ей числа, разделяя их пробелами.
4)Напишите программу, которая выводит в столбик цифры введённого числа, начиная с первой. Используйте процедуру.