Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Даны натуральное число n, символы s1,...sn. , группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя ,

10-11 класс

будем называть словами. подсчитать количество букв a в последнем слове данной последовательности

В TPascal

Aubakirovaasel 30 окт. 2013 г., 22:50:44 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Alisaali8sa
30 окт. 2013 г., 23:48:18 (10 лет назад)

var
s:string;
i,count,count1,numI:integer;
begin
count:=0;
count1:=0;
readln (s);
for i:=1 to length(s) do
if (s[i]=' ') then
begin
count:=count+1;
numI:=i;
end;
for i:=numI+1 to length(s) do count1:=count1+1;
writeln ('Число букв в последнем слове:',count1);

 


end.

Ответить

Другие вопросы из категории

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

uses graphABC;
begin
setwindowsize(500,400);
setpencolor(clwhite);
setbrushcolor(clbrown);
ellipse(60,40,100,90);
ellipse(160,40,200,90);
circle(130,110,70);
ellipse(90,110,170,160);
setbrushcolor(clwhite);
setpencolor(clblack);
circle(105,80,15);
circle(155,80,15);
setbrushcolor(clblack);
ellipse(100,75,110,93);
ellipse(150,75,160,93);
ellipse(150,75,160,93);
setpencolor(clwhite);
setbrushcolor(clbrown);
floodfill(60,40,cllightblue);
end.

Дано квадратное уравнение вида A*x^2+B*x+C=0

Коэффициенты заданы A= 4.00 B= -52.00 C= 144.00
A>0, D>0. Формулы для помощи: d=B^2 - 4*a*c; x1,2=(-b +- Sqrt(d))/(2*a)
Вывести вначале меньший корень, затем больший.
Нужно написать программу в Pascal'e.

В результате сканирования с разрешением 72 dpi было получено изображение, которое затем распечатали на принтере с разрешением 600 dpi. Что произойдет с

изображением при печати?

1) Качество печати изображения будет высоким, размер рисунка на бумаге не изменится.

2) Качество печати изображения будет высоким, размер рисунка на бумаге изменится.

3) Качество печати будет значительно хуже изображения, размер рисунка на бумаге не изменится.

4) Качество печати будет значительно хуже изображения, размер рисунка на бумаге изменится.

Читайте также

Даны натуральное число n, символы s1,...sn. , группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя ,

будем называть словами. подсчитать количество слов в данной последовательности.

в TPascal

Помогите пожалуйста решить 1) дано натуральное число. Определить номер цифры 3 в нем считая от конца числа. Если такой цифры нет то ответ

0,если их несколько то номер крайней правой.

2) Дано натуральное число. Определить сумму m его последних цифр

3)Дано натуральное число. определить его максимальную цифру.

4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2

5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число

1.Дано натуральное число:

a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).

Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)

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

и удовлетворяют след. свойству:
- слово совпадает с начальным отрезком латинского алфавита ('a','ab','abc' и т.д.)

P.s. Только решить её надо не использую строки.Вместо них array of char...
Пример ввода:
writeln('Введите предложение, символ конца - точка');
i := 0;
repeat
inc(i);
read(a[i])
until (a[i] = '.')or(i = n);

Заранее огромное спасибо.



Вы находитесь на странице вопроса "Даны натуральное число n, символы s1,...sn. , группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя ,", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.