паскаль. строки. - Форум
Среда, 07.12.2016, 11:36
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » паскаль. строки.
паскаль. строки.
AgavenДата: Вторник, 17.05.2011, 12:25 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
помогите с задачей.
пусть дан текст:"Чтобы порекомендовать вам книгу". Найдите в тексте местоположение самого длинного слова
 
KOT_B_MEIIIKEДата: Вторник, 17.05.2011, 21:37 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Code
program slovo;
var s:string; len,num,len1,num1, i:integer;
begin
writeln('Vvedite stroku');
read(s); len1:=0;num1:=1;len:=0;num:=0;
for i:=1 to length(s) do
if s[i]<>' ' then len1:=len1+1
else
begin
if len1>len then
begin
len:=len1;
num:=num1
end;
len1:=0; num1:=num1 +1;
end;
writeln('Samoe dlinnoe slovo v etoi stroke ',num,'e');
end.

вот


Сообщение отредактировал KOT_B_MEIIIKE - Вторник, 17.05.2011, 21:37
 
Agaven0458Дата: Вторник, 17.05.2011, 22:16 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Спасибо тебе, ты спас мне жизнь))
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » паскаль. строки.
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016