Вопрос по информатике:
Помогите,пожалуйста нужен код для паскали Найти сумму всех четных элементов массива,кратных заданному числу.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.02.2018 21:06
- Информатика
- remove_red_eye 19626
- thumb_up 36
Ответы и объяснения 1
uses crt;
var s: string;
function Kslov (str: string; c: char): integer;
var i,k: integer;
begin str:=str+' ';
k:=0;
for i:=1 to length(str)-1 do if (str[i+1] in [' ','.',',','-',':',';','!','?']) and (str[i]=c) then inc(k);
Kslov:=k;
end;
procedure Del(var str: string);
var i,j: integer;
begin str:=str+' '; i:=length(str)+1;
repeat dec(i);
until(str[i+1]=' ') and (str[i]='о');
j:=i;
repeat dec(i);
until(str[i+1]=' ') or (i=1); delete(str,i,j-i);
end;
begin write('s='); readln(s); if Kslov (s,'о')>Kslov (s,'а') then Del(s); write('s=',s);
End.
- 04.02.2018 13:41
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.