Сб, 23.09.2017, 15:57
Форум інформатиків України
Головна Реєстрація Вхід
Вітаю Вас, Гість · RSS
Вітання на форумі
Незнайомець
Вітаємо на форумі,
Незнайомцю!

   
зареєструйтесь
Перед реєстрацією обов’язково прочитайте:
Оновлення Учасники Пошук
Особисті повідомлення
Видавництво ’’Аспект’’ Видавництво

Сторінка 1 з 11
Модератор форуму: Ktara, НІКОЛЯ, Bandalak, volevikt 
Форум інформатиків » АРХІВ » Архів форуму » Допоможіть зробити программу
Допоможіть зробити программу
sancho Дата: Пн, 15.02.2010, 18:37 | Повідомлення № 1
Новий користувач
Повідомлень: 1
Нагороди: 0
Рейтинг: -3
Допоможіть будь-ласка зробити програму в Pascal : Дано текст, який містить букви і пропуски. Знайти і надрукувати слова і їх кількість, які закінчуються буквосполу-ченням “ати”. Словом вважати послідовність букв, розділених пропусками.

Дуже Дякую!

KulAlex Дата: Пн, 15.02.2010, 19:07 | Повідомлення № 2
Знаток програмування
Повідомлень: 326
Нагороди: 6
Рейтинг: 19
Якщо така задача, то я її розв'яжу без фанатизму :)

var r,s:string;
l,k:integer;
begin
readln(s);
s:=s+' ';
while length(s)<>0 do
begin
r:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
l:=length( r );
if (l>=3) then
if (r[l-2]='а') and (r[l-1]='т') and (r[l]='и') then
begin
writeln( r );
k:=k+1
end
end;
writeln(k)
end.

Відредаговано: KulAlex - Пн, 15.02.2010, 19:13
Форум інформатиків » АРХІВ » Архів форуму » Допоможіть зробити программу
Сторінка 1 з 11
Пошук:


© Форум інформатиків України, 2007-2017.