Дана строка символов s и,далее,отдельно в новой строке дан одиночный символ с.напишите программу,которая подсчитает,сколько раз символ с встретился в данной строке s.составить блок-схему,не используя цикл с параметром.
Var S:string; C:char; i,k:integer; Begin WriteLn('Введите строку'); ReadLn(S); WriteLn('Введите символ'); ReadLn(C); i:=1; k:=0; While i<=Length(S) do Begin if S[i] = C then k:=k+1; i:=i+1 End; WriteLn(k); End.
Начнём с того, чтобы создавать презентацию в MSPowerPoint, необходимо создать слайды во вкладке "Главное" где в левом верхнем углу будет окошко создания слайда, где можно также выбрать шаблон желаемого слайда (титульный),Далее создав определённое количество слайдов мы можем приступить к работе с ними (Программа PowerPoint Обладает широкимфункционалом визуальных функций, чтобы привлекать внимание зрителя), мы можем вставить: звук,картинки,диаграммы,таблицы,видеоклипы и т.д.( и впоследствии настраивать их:воспроизведение,отображение)Можно настроит задний фон для слайдов(можно выбрать из списка шаблонов), и их анимацию для каждого по отдельности(это придаст интереса при просмотре)
Program lol (input, output); var i, n, d, sd, s4d, kd, kn4d, k4d, kbd:integer; begin writeln ('Введите само число и число d'); read (n, d); writeln ('Делители:'); I:=1; sd:=0; s4d:=0; kd:=0; kn4d:=0; k4d:=0; kbd:=0; while I <=n do begin if n mod I = 0 then begin kd:=kd+1; writeln (I); sd:=sd+I; if I > d then kbd:=kbd+1; if I mod 2 = 0 then begin s4d:=s4d+I; k4d:=k4d+1; end else kn4d:=kn4d+1; end; I:=I+1; end; writeln (' '); writeln ('сумма делителей ', sd); writeln ('сумма четных делителей ', s4d); writeln ('количество делителей ', kd); writeln ('количество нечетных делителей ', kn4d); writeln ('количество четных делителей ', k4d); writeln ('количество делителей болеше d ', kbd); end.
C:char;
i,k:integer;
Begin
WriteLn('Введите строку');
ReadLn(S);
WriteLn('Введите символ');
ReadLn(C);
i:=1;
k:=0;
While i<=Length(S) do
Begin
if S[i] = C then k:=k+1;
i:=i+1
End;
WriteLn(k);
End.