Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Довести тесто до кондиции, сообщая при о производимых действиях и результатах https://www.cyberforum.ru/ pascal/ thread1541177.html Хорошая консистенция теста – это когда на 1 кг муки приходится 0,32 – 0,36 л воды. Была отвешена порция a кг муки и b л воды. Если получилось слишком жидко, придётся досыпать муки, если слишком сухо – долить воды. Но для муки имеется мерка только на 0,5 кг, а для воды мерка только на 0,2 л. Пользуясь по очереди этими мерками, программа должна довести тесто до кондиции, сообщая при этом о...	Расскажите об основах по использованию графов Pascal У кого какие навыки по использованию графов? Расскажите основания.
Pascal Определение длины слов в предложении https://www.cyberforum.ru/ pascal/ thread1541083.html Составьте программу,определяющую длину слов в предложении	Pascal Дано два массива: а и б. Составить массив с, элементы которого будут упорядочены по возрастанию https://www.cyberforum.ru/ pascal/ thread1541035.html Дано два массива: а и б. Составить массив с, элементы которого будут упорядочены по возрастанию. Помогите пожалуйста, очень надо! За ранее спасибо!
Pascal Вычислить и вывести на экран в виде таблицы N значении функции F на интервале от Хнач. до Хкон Вычислить и вывести на экран в виде таблицы N значении функции F на интервале от Хнач. до Хкон. Шаг dX=( Хкон - Хнач)/N.	Pascal Рекурсия. Чему равна сумма всех чисел, при выполнении вызова F(1) ? https://www.cyberforum.ru/ pascal/ thread1540925.html Никак не додумаюсь как сделать сумму всех чисел и сомневаюсь правильна ли программа вообще, помогите пожалуйста! var n:integer; procedure F(n:integer); begin write(n); if n<5 then begin
Pascal Вычислить площадь круга https://www.cyberforum.ru/ pascal/ thread1540849.html Пусть элементами круга является радиус (первый элемент), диаметр (второй элемент) и длина окружности (третий элемент). Составить программу, которая по номеру элемента спрашивала бы его соответствующее значение и высчитывала бы площадь круга.	Напечатать стоимость каждого из автомобилей, в которых мощность двигателя не превышает 80 л.с. Pascal Известны данные о мощности двигателя (в л.с.) и стоимости 30-ти маркам легковых автомобилей. Напечатать стоимость каждого из автомобилей, в которых мощность двигателя не превышает 80 л.с.
Pascal Вычислить общую численность населения в "маленьких" государствах Известны данные об количестве населения (в миллионах жителей) и площадь (в тысячах километров) 28 государств. Вычислить общую численность населения в "маленьких" государствах (чья площадь не превышает тысячи квадратных километров). https://www.cyberforum.ru/ pascal/ thread1540780.html	Pascal Дано случайное число. Найти количество цифр этого числа, больших k Дано случайное число. Найти количество цифр этого числа, больших k. Через While. https://www.cyberforum.ru/ pascal/ thread1540672.html
Pascal Определить, попадает ли точка в закрашенную область Дана заштрихованная область и точка с координатами (x,y). Написать программу, определяющую, попадает ли точка в область. Результат вывести в виде текстового сообщения. Пример: if (sqr(x)+sqr(y)<=0) or (X<=0) and (y<=0) and (y>=-x-2) then writeln('Точка попадает в область') else writeln('Точка не попадает в область');	Pascal Найти количество цифр в n! запрещено использовать операции возведения в степень https://www.cyberforum.ru/ pascal/ thread1539722.html

Scrilkor

0 / 0 / 0

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

Сообщений: 15

Вывести слова в столбец с указанием длины каждого слова - Pascal - Ответ 8132663

30.09.2015, 09:18. Показов 738. Ответов 1

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

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

Pascal

var s:string;
    i,k,m:byte;
begin
writeln('Vvedit PIB : ');
readln(s);
s:=s+' ';
Writeln('Dovjuna ryadka : ',Length(s));
for i:=1 to length(s) do
if s[i]=' ' then m:=m+1;
writeln('kilkist sliv : ',m);
writeln('Dovjunu sliv');
k:=0;
for i:=1 to length(s) do
if s[i]<>' ' then k:=k+1
else
 begin
  if k<>0 then write(k,' ');
  k:=0;
 end;
end.

Вернуться к обсуждению:
Вывести слова в столбец с указанием длины каждого слова Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

30.09.2015, 09:18

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

Вывести слова, отличные от последнего слова, предварительно удалив из каждого слова первую букву
Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв;...

Вывести те слова строки, которые больше длины первого слова.
Дана строка, содержащая более двух слов, между соседними словами – пробел. Вывести те слова строки,...

Исправить 3адачу: дана строка длиной n символов, Вывести все слова, отличные от последнего слова, предварительно удалив из слов нечетной длины его сре
дана строка, между словами не менее одного пробела, в конце точка. Вывести все слова, отличные от...

Напечатать все слова, отличные от последнего слова, предварительно удалив из каждого слова последнюю букву
1) Программа. Дан текстиз строчных русских букв, закоторым следует точка. Напечатать этот текст...

	30.09.2015, 09:18

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

30.09.2015, 09:18

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

Напечатать все слова, перенеся первую букву каждого слова в конец слова
приветствую вас))) помогите пожалуйста даме... Текст задан строкой var St: string; Напечатать...

Изменить строку, продублировав слова, из которых можно составить слова-палиндромы четной длины
Добрый вечер всем. На главной странице я увидел эту надпись: Я очень надеюсь на вашу помощь....

Вывести на экран все слова строки данной длины
помогите!! на паскале

Напечатать все слова последовательности, удалив из каждого слова нечётные буквы, если слово имеет нечётное количество символов
Напечатать все слова последовательности, удалив из каждого слова нечётные буквы, если слово ...

Наверх