Головна | Реєстрація | Вхід | RSSЧетвер, 02.25.2021, 9:03 AM

Довідник для учнів та студентів

Меню сайту
Пошук
Наше опитування
Ви навчаєтесь:
Всього відповідей: 804
Що нового?
Форма входу
Міні-чат

Речення

Скласти програму, яка визначаэ кылькысть слыв, що входить у введене з клавыатури речення. Слова роздыляються пропусками, ознакою кынця речення э ".":

program rechennia;

var s: string;

i,k,l: integer;

begin

repeat

writeln ('vvedit rechennia');

readln (s);

l:=length (s);

until s[l]='.';

delete (s,l,1);

l:=l-1;

k:=0;

for i:=1 to l do

if s[i]=' ' then k:=k+1;

writeln ('sliv - ',k+1);

readln

end.

 Яндекс.Метрика
Статистика

Онлайн всього: 1
Гостей: 1
Користувачів: 0
Календар
«  Лютий 2021  »
ПнВтСрЧтПтСбНд
1234567
891011121314
15161718192021
22232425262728
Архів записів
Друзі сайту

Guide-for-students © 2021
Створити безкоштовний сайт на uCoz