Войти Регистрация Спроси ai-bota

Цикл while в paskal abc удалить все пробелы в сторке

Показать ответ

Ответ:

наташа608

09.10.2020 12:20

var s:string;

begin

read(s);

while pos(' ',s)>0 do

delete(s,pos(' ',s),1);

write(s)

end.

0,0(0 оценок)

Популярные вопросы: Информатика

Fjkskdnxk

09.08.2021 18:49

Как были расшифрованы древнеперсидские письм?...

aizmesteva

09.08.2021 18:49

Даны две последовательности символов (любых). определить количество букв в первой последовательности, повторяющихся во второй последовательности. паскаль...

okmaksimowac2

02.04.2021 20:12

Составить программу(паскаль) сформировать массив (t кол-во элементов 20) случайных чисел,выбранных на интервале от -10 до +10.вывести кол-во нулевых элементов,сумму элементов...

Vladchery

12.02.2022 11:59

Заполнить массив а(15) ручным и посчитать в нем количество отрицательных элементов. на qbas,...

MmVl

12.02.2022 11:59

Разработайте программу, запрашивающую высоту дома h ( в метрах), ускорение свободного падения g и вычисляющую время падения кирпича t (в секундах) с крыши этого дома....

Andrey21vek

13.01.2022 03:48

Переведите целые числа из десятичной системы счисления в двоичную 523...

Fentis001

02.04.2023 17:11

Запишите все трехзначные числа, у которых сумма цифр равна 6....

Zoomf

18.06.2022 21:38

Составить эквивалентную запись выражения y=sgrt(x-a)+1/(x+2)+c...

NastyaAnaNastya

18.06.2022 21:38

Функция random (x) возвращает случайное целое число в диапазоне от 0 до х-1. в переменную y требуется поместить случайное целое число в диапазоне от 40 до 46 включительно...

megan99

18.06.2022 21:38

Вычислить для а=-2 if a 2 then begin a: =a+1; a: =a+a; end a: =a+20...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку