Скріншот програми: Алгоритм програми

True False

Ідентифікатор	Опис
N	Кількість членів послідовності a1…an
X	Кількість членів кратних 3 і не кратних 5
I	Член послідовності a1…an (цикл)
A	Кожен член послідовності a1…an

252. Дано натуральне число п, символи . Підрахувати:

а) скільки разів серед даних символів зустрічається символ «+» і скільки разів символ «*»;

Текст програми

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils, Windows;

var

S :string; //Рядок символів

K1 :integer; // Кількість знаків «+»

K2 :integer; // Кількість знаків «*»

I :Integer; // Символ рядка S (цикл)

Ch :Char;

K :integer;

G :integer;

function TextToScreen(St:string):string;

//Кирилиця в консольному режимі Delphi 7

var

K :integer;

G :integer;

begin

for K:=1 to Length(St) do

begin

G:=Ord(St[K]);

if G < 128 then continue;

case G of

191: st[K]:=Chr(244);

170: st[K]:=Chr(242);

175: st[K]:=Chr(245);

178: st[K]:=Chr(73);

186: st[K]:=Chr(243);

179: st[K]:=Chr(105);

32: st[K]:=Chr(32)

else

if St[K] <= 'i' then St[K]:=Chr(G-64)

else if St[K] <= 'y' then St[K]:=Chr(G-16);

end //case

end;

TextToScreen:=St;

end; // procedure TextToScreen

begin

SetconsoleCP(1251); //Використання кирилиці

SetconsoleOutputCP(1251); //Використання кирилиці

Writeln(Введіть рядок знаків: '); //Виведення тексту на екран

ReadLn(S); //Читання значення введенного з клавіатури

K1:=0; //Початкове значення K1=0

K2:=0; //Початкове значення K2=0

for I:=1 to Length(S) do //Початок циклу (від 1 до числа рівного значенню довжини рядка введенного з клавіатури)

begin

if S[I] = '+' then Inc(K1) //Рахування кількості знаків +

else if S[I] = '*' then Inc(K2); //Рахування кількості знаків *

end;

Writeln; //Відступ рядка перед виведенням результату

Writeln('Символ "+" зустрічається ', K1, ' разів'); //Виведення результату на екран

Writeln('Символ "*" зустрічається ', K2, ' разів'); //Виведення результату на екран

Readln;

end.

Скріншот програми:

А лгоритм програми

True False True

Ідентифікатор	Опис
S	Рядок знаків
K1	Кількість знаків «+»
K2	Кількість знаків «*»
I	Символ рядка S (цикл)

252. Дано натуральне число п, символи . Підрахувати:

_{б) загальне число входжень символів «+», «-» , «*» у послідовність}