Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи. 14. Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи. Помогите решить https://www.cyberforum.ru/ turbo-pascal/ thread140730.html Преобразовать последовательность по правилу Turbo Pascal
42. Даны две последовательности целых чисел а1, а2,..., аn и b1, b2,..., bn. Преобразовать последовательность b1, b2,..., bn по следующему правилу: если ai ≤ 0, то bi увеличить в 10 раз, в...
Turbo Pascal Вычислить произведение отрицательных элементов Р1 и произведение положительных элементов Р2. 28. В последовательности действительных чисел а1, а2,..., аn, есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов Р1 и произведение положительных... https://www.cyberforum.ru/ turbo-pascal/ thread140728.html Turbo Pascal Напечатать те слова, которые встречаются в каждом из двух заданных предложений https://www.cyberforum.ru/ turbo-pascal/ thread140725.html
42. Напечатать те слова, которые встречаются в каждом из двух заданных предложений.Помогите решить:)
Написать, какие буквы и сколько раз встречаются в тексте. Turbo Pascal
28. Строка, содержащая произвольный русский текст, состоит не более чем из 200 символов. Написать, какие буквы и сколько раз встречаются в этом тексте. Ответ должен приводиться в грамматически...
Turbo Pascal Создать однонаправленный список с упорядоченными по возрастанию элементами https://www.cyberforum.ru/ turbo-pascal/ thread140721.html
Fisierul text INPUT.TXT contine pe fiecareb linie cite un numar real. Scrieti un program, fara a folosi variabile de tip tablou, care creaza o lista unidirectionala ordonata crescator ce contine...
Turbo Pascal Определить, сколько раз входит в нее группа букв abc. Дана строка. Определить, сколько раз входит в нее группа букв abc. https://www.cyberforum.ru/ turbo-pascal/ thread140720.html Turbo Pascal Работа со строками
Отредактировать заданное предложение, удаляя из него те слова, которые встречаются в предложении заданное число раз. Помогите кто чем может!!!!!!!! Зараннее СПАСИБО!!!!!!!
Turbo Pascal Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке. https://www.cyberforum.ru/ turbo-pascal/ thread140711.html
Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке. Большое СПАСИБО за помощь!!!!!
Turbo Pascal Вывести на экран длину наибольшей последовательности цифр, идущих подряд. https://www.cyberforum.ru/ turbo-pascal/ thread140707.html
Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд. Помогите решить
Вывести на экран все символы, расположенные внутри скобок. Turbo Pascal
Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок. ЗАРАННЕЕ ОГРОМНОЕ СПАСИБО!!!!!!!!!!!!!!!
Turbo Pascal Блок - схема https://www.cyberforum.ru/ turbo-pascal/ thread140685.html
var i,j,nT,nD,k,p,s,A,D,T:integer; Y: array of integer; R:real; l:text; function STEPEN(s,k:integer):integer; begin p:=s; i:=1; while...
3306 / 1368 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
04.06.2010, 10:29 0

Подсчитать количество символов до точки с запятой и после нее. - Turbo Pascal - Ответ 778857

04.06.2010, 10:29. Показов 8762. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Lena neznayka как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
 i,k:integer;
 s:string;
begin
 writeln('stroka:');
 readln(s);
 i:=Pos(';',s);
 if i>0 then k:=length(s)-i;
 write('до ',i-1,' posle ',k);
 readln;
end.
end.
Добавлено через 6 минут
ой, этож консолька, вот вам для паскаля
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var
 i,k:integer;
 s:string;
begin
clrscr;
 writeln('stroka:');
 readln(s);
 i:=Pos(';',s);
 if i>0 then k:=length(s)-i;
 write('до ',i-1,' posle ',k);
 end.
readln;
end.


Вернуться к обсуждению:
Подсчитать количество символов до точки с запятой и после нее. Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2010, 10:29
Готовые ответы и решения:

Подсчитать количество символов до точки с запятой и после нее
в строке имеется точка с запятой (;). Подсчитать количество символов до точки с запятой и после...

Подсчитать количество символов до точки и после нее
1)В ряду есть одна точка с запятой(;) Подсчитать количество символов до точки и после нее....

В строке имеется одна точка с запятой (;). Подсчитать количество символов до точки с запятой и после нее.
В строке имеется одна точка с запятой ( ; ). Подсчитать количество символов до точки с запятой и...

В строке имеется одна точка с запятой. Подсчитать количество символов до точки с запятой и после неё
В строке имеется одна точка с запятой. Подсчитать количество символов до точки с запятой и после...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2010, 10:29

Подсчитать количество символов до точки с запятой и после нее
2. В строке имеется одна точка с запятой (;). Подсчитать количество символов до точки с запятой и...

Подсчитать количество символов до точки с запятой и после нее
Задание: В строке имеется одна точка с запятой ( ; ). Подсчитать количество символов до точки с...

Подсчитать количество символов до точки с запятой и после нее
В текстовом файле Input.txt имеется одна точка с запятой (;). Подсчитать количество символов до...

Подсчитать количество символов до точки с запятой и после нее
В тексте имеется одна точка с запятой (;). Подсчитать количество символов до точки с запятой и...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru