v-shevlyakov7992
?>

Написать программы по следующим условиям: Для заданного символа определить, сколько раз он встречается во введённом тексте (двумя с циклом For и с циклом Repeat

Информатика

Ответы

fancy-decor67

var s: string;

c: char;

i, counter: integer;

begin

   s := 'abcaabaacd';

   c := 'a';

   

   // For

   for i := 1 to Length(s) do

       if s[i] = c then

           inc(counter);

   writeln('"', c, '" встречается в строке "', s, '" ', counter, ' раз');

   

   // Repeat

   counter := 0;

   i := 1;

   repeat

       if s[i] = c then

           inc(counter);

       inc(i);

   until i = Length(s);

   writeln('"', c, '" встречается в строке "', s, '" ', counter, ' раз');

end.

info122
Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.
Alyona1692
Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
    begin
      write('Введите ответ уравнения ', problems[counter], ' : ');
      readln(userAnswer);
      if userAnswer = answers[counter] then Inc(countOfAnswers);
    end;
if countOfAnswers > 8 then writeln('Отлично')
    else if countOfAnswers > 5 then writeln('Хорошо')
    else writeln('Плохо');
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программы по следующим условиям: Для заданного символа определить, сколько раз он встречается во введённом тексте (двумя с циклом For и с циклом Repeat
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

tatry2005
Aleksandrovich_Mitoyan1138
mila010982
smakejkina
deshkina82
Svetlana290419
manu95957
Vs1377
denis302007
misterdre9991
Simbireva
olimp201325
diana8
vadim330
catmos