Да се напише програма, която позволява да се въведат 5 символа, които да се броят и после 20 други символа. Програмата да извежда колко пъти сме въвели някой от 5-те символа в началото.
По желание: Въвеждането на символи да спре при въвеждане на точка.
Трябва да влезете, за да публикувате коментар.
за Къде се намира точка за Вмъкване и изтриване на елемент * за Позицията на X за Броят на максималните елементи за Броят на максималните елементи за Пари за закуска за Ученици с дадена оценка за По-големи от средното
program Project1; var BrPov, i: integer; Sim1, Sim2, Sim3, Sim4, Sim5, C: char; begin BrPov:= 0; WriteLn('Vavete 5 simvola'); Read(Sim1, Sim2, Sim3, Sim4, Sim5); WriteLn; WriteLn('Vavedete 20 simvola'); For i:= 1 to 20 do begin Read(C); if (C = Sim1) or (C = Sim2) or (C = Sim3) or (C = Sim4) or (C = Sim5) then Inc(BrPov); end; WriteLn; WriteLn('Povtarqt se ', BrPov, ' simvola'); ReadLn; ReadLn; end.Вики вярно е, но опитай дали с множества няма да е по-лесно – с функцията Include() включи всеки от първите 5 символа в едно празно множество и после проверявай дали следващите са там.