Головна | Реєстрація | Вхід | RSS | П`ятниця, 04.19.2024, 7:49 AM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
Словоprogram slovo; var s: string; r: char; i,k,l: integer; begin writeln ('vvedit slovo'); readln (s); l:=length (s); writeln ('yaky litery shykaem'); readln (r); k:=0; for i:=1 to l do if s[i]=r then k:=k+1; if k=0 then writeln ('literu ',r,' v slovi nemae') else begin writeln ('litera - ',r,' v slovi'); writeln ('zystrichaetsa ',k,' raziv'); end; readln end. |
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |