Головна | Реєстрація | Вхід | RSS | Четвер, 02.25.2021, 9:03 AM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
РеченняСкласти програму, яка визначаэ кылькысть слыв, що входить у введене з клавыатури речення. Слова роздыляються пропусками, ознакою кынця речення э ".":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. |
|
Guide-for-students © 2021 |
Створити безкоштовний сайт на uCoz |