Выберите свойство алгоритма, по которому данный алгоритм может быть применён для решения не одной, а целого класса подобных заданий.

Результативность
Детерминированность
Дискретность
Массовость

Question

Информатика: Выберите свойство алгоритма, по которому данный алгоритм может быть применён для решения не одной, а целого класса подобных заданий. Результативность Детерминированность Дискретность Массовость

roman2016volko · Accepted Answer

//Pascal
var
S: string;
i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
if ((S[i] = '3') or (S[i] = '6') or (S[i] = '9')) then
begin
Count := Count + 1;
Delete(s,i,1);
end;
writeln('Количество цифр кратных трем = ', Count);
writeln('Строка после удаления = ', S);
end.

//FreePascal/Delphi/PascalABC.NET(v3.3.1590)
{$MODE OBJFPC} //В PascalABC.NET можно убрать
uses SysUtils; //В PascalABC.NET можно убрать
var
S: string;
i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
try
if StrToInt(S[i]) mod 3 = 0 then
begin
Count := Count + 1;
Delete(s,i,1);
end;
except
end;
writeln('Количество цифр кратных трем = ', Count);
writeln('Строка после удаления = ', S);
end.

Напишите, , программу, подсчитывающюю количество цифр во введенной строке кратные 3. после чего удал

Напишите, , программу, подсчитывающюю количество цифр во введенной строке кратные 3. после чего удал

MOGZ ответил