Регистрация
Sevinch94
06.03.2022 23:42
Информатика
Есть ответ 👍

Составить программу, которая заменяет в строке "s" строчные буквы "о"(рус.) на прописные "о"(рус.)

134
152
Посмотреть ответы 2

Ответы на вопрос:

nurbolatborec7
nurbolatborec7
4,7(48 оценок)
Dim s as string s = inputbox("введите строку") s = replace(s, "о", "о") '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 msgbox(s)
azizbekboboniyozov
azizbekboboniyozov
4,4(83 оценок)

//pascalabc.net

1)

var

  num, sum: integer;

begin

  sum : = 0;

  repeat

    read(num);

    if (num mod 4 = 0) and (num div 1000 = 0) and (num div 100 < > 0) then

      sum : = sum + num;

  until (num = 0);

  write(sum);

end.

2)

var

  num, max, n, i: integer;

begin

  max : = 0;

  read(n);

  for i : = 1 to n do

  begin

    read(num);

    if (num mod 10 = 3) and (num > max) then

      max : = num;

  end;

  write(max);

end.

Популярно: Информатика