Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal дано натуральное число n, действительное число х дано натуральное число n, действительное число х. Вычислить n, S, где S - сумма x+cos(ix)/2^i, i=1 https://www.cyberforum.ru/ pascal/ thread164988.html	Найти элемент массива с максимальной суммой цифр и номер этого элемента Pascal Дан массив,состоящий из n элементов,элементами массива являются двузначные числа. Найти элемент с максимальной суммой цифр и номер этого элемента(считать что элементов с максимальной суммой цифр может быть несколько)
Pascal Одномерный массив В заданном одномерном массиве найти максимальный отрицательный элемент. Все нулевые элементы заменить на заданное значение. https://www.cyberforum.ru/ pascal/ thread164966.html	Pascal Наибольшее число соседей среди перечисленных стран https://www.cyberforum.ru/ pascal/ thread164943.html type rep=(Russia, Ukraina, Gruzia, Belorussia. Azerbaigan); var NBH:array of boolean; r:rep; Элемент NBH равен true, если страны a и b имеют общую границу, и равен false иначе. Определить r-страну, имеющую наибольшее число соседей среди перечисленных стран. Всем привет, столкнулся вот с такой задачей, как решить к сожалению не знаю, прошу помощи советом или кусками программы :)
Pascal Множества Дана строка символов. Преобразовать ее, удалив из нее повторные вхождения каждой литеры. Помогите пожалуйста!!!Спасибо зарание!!!	Pascal Строки https://www.cyberforum.ru/ pascal/ thread164875.html Помогите пожалуйста!!! В введенной строке подсчитать количество слов и букв в каждом слове (слова отделяются пробелами). Заранее большое спасибо!!!
Pascal Дан текст. Отсортировать символы строки по возрастанию. https://www.cyberforum.ru/ pascal/ thread164869.html Дан текст. Отсортировать символы строки по возрастанию (сортировка в соответствии с кодами в таблице ASCII).	Pascal Циклические процессы в одномерном массиве вычислить сумму эдементов, значение которых кратны некоторому значению x
Pascal Массив https://www.cyberforum.ru/ pascal/ thread164865.html В одномерном массиве найти наибольший из отрицательных элементови поменять его местами с первым	Pascal списки, очередь и стек. помагите решить задачу!!!!! Решить одну и ту же задачу, организуя список, очередь и стек. В поле данных каждого элемента списка записываются данные об автомобилях:: марка, номер, стоимость. Выведите на экран весь список и определите общую стоимость машин, номер которых начинается с цифры 1. зарание спасибо!!!! https://www.cyberforum.ru/ pascal/ thread164858.html
Pascal Вычислить разность между максимальным и минимальным 1) Считая, что стандартные функции Sin и Cos применимы только к аргументам из отрезка , вычислить y=Sin(x) для произвольного числа X. 2)С клавиатуры вводится заранее неизвестное число вещественных чисел. Вычислить разность между максимальным и минимальным их них. 3) Для каждого символа заданного текста указать, сколько раз он встречается в тексте. Сообщение об одном символе должно печататься не...	Pascal Создание нового массива В заданном одномерном массиве найти последний отрицательный элемент. Все нечетные элементы заменить на найденные значения. Вот у меня вопрос: как в данной программе написать, чтобы в конце выдавались не только те элементы, которые заменились, но так же и не замененные(четные): Program lab1; uses crt; var x,y:array of integer; i, N, Nfind,Nech: integer ; https://www.cyberforum.ru/ pascal/ thread164832.html

Стася001

1 / 1 / 0

Регистрация: 16.04.2010

Сообщений: 14

В данной строке в последнем слове перед каждым символом С вставить символ ! - Pascal - Ответ 951988

11.09.2010, 16:01. Показов 2173. Ответов 4

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста!!!
Задача вроде правильная,она работает,но не совсем так,как надо!!!
В данной строке в последнем слове перед каждым символом С вставить символ !

Pascal

Program z1;
Var n:string;
      i,j,q,e,w:integer;
begin
writeln ('ввести строку');
readln (n);
q:=lenght(n);
for i:=1 to q do begin
if n[i]=' ' then
w:=i; end;
for j:=w to q do begin
if n[j]='C' then
insert ('!',n,j-1); end;
writeln (n);
readln;
end.

Вернуться к обсуждению:
В данной строке в последнем слове перед каждым символом С вставить символ ! Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

11.09.2010, 16:01

Готовые ответы и решения:

В заданной строке вставить перед каждым символом «!» символ «,»
В заданной строке вставить перед каждым символом «!» символ «,»

Перед каждым символом * (звёздочка) вставить символ + (плюс)
По условиям нужно получать char с помощью gets(), что я и делаю, других вариантов нет. Функция...

Исходный текст переписать в обратном порядке и перед каждым символом вставить символ “б”.
Исходный текст переписать в обратном порядке и перед каждым символом вставить символ “б”. Например:...

Вставить перед каждым цифровым символом строки сочетание 'no'
Дана(какая-то)строка.Вставить перед каждым её символов цифры сочетание 'no' Нужна полностью...

	11.09.2010, 16:01

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

11.09.2010, 16:01

Помогаю со студенческими работами здесь

Перед каждым входящим символом С в строку S1 вставить слово S2
Дана строка S1, полученная из текстового файла произвольно веденного слова S2 и символа C. Перед...

В заданной строке вставить перед каждым символом "!" - "."
Попробовал сделать программку, но выходят ошибки, помогите, пожалуйста. void __fastcall...

Удалить из текста символ «!» и перед символом «:» вставить «-».
1. Удалить из текста символ «!» и перед символом «:» вставить «-».

Перед каждым знаком '=' вставить символ, стоящий за ним, если таковой имеется
нужно написать программу, которая читает с клавиатуры строку символов, преобразует ее и выводит...

Наверх