Вопрос по информатике:
Есть массив из 6 элементов символьного типа. Сосчитать количество символов «+». Если их больше 4, то заменить их на символ =. Напечатать весь массив
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.07.2015 10:29
- Информатика
- remove_red_eye 12450
- thumb_up 40
Ответы и объяснения 2
program HelloWorld;
var n:array [1..6] of string;
var i,k,j: smallint;
begin
n[1] := '1+';
n[2] := '2+';
n[3] := '3+';
n[4] := '4+';
n[5] := '5+';
n[6] := '6';
k := 0;
for i:=1 to 6 do
if pos('+',n[i]) > 0 then k := k + 1;
if k>4 then
for i:=1 to 6 do
begin
j := pos('+',n[i]);
if j > 0 then
begin
delete(n[i],j,1);
insert('=',n[i],j);
end;
end;
for i:=1 to 6 do
writeln(n[i]);
end.
- 26.07.2015 19:43
- thumb_up 31
Внимание! Если программа не работает, обновите версию!
begin
var a:=new string[6];
var k:=0;
for var i:=0 to a.Length-1 do begin
a[i]:=ReadlnString('Элемент '+(i+1)+': ');
k+=a[i].Where(c->c='+').Count
end;
if k>4 then begin
a.Transform(s->s.Replace('+','='));
a.PrintLines
end
end.
Пример
Элемент 1: Это раз!
Элемент 2: Это два ++
Элемент 3: Это три!!!
Элемент 4: Четыре четыре четыре
Элемент 5: +пять+
Элемент 6: ше+сть!!!
Это раз!
Это два ==
Это три!!!
Четыре четыре четыре
=пять=
ше=сть!!!
- 27.07.2015 21:04
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.