Вопрос по информатике:
Напишите, пожалуйста, программу, подсчитывающюю количество цифр во введенной строке кратные 3. После чего удалить из введенной строки все цифры, кратные 3. На паскале
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.02.2016 19:43
- Информатика
- remove_red_eye 18067
- thumb_up 31
Ответы и объяснения 1
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.
- 22.02.2016 12:03
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.