М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
PeterSakh
PeterSakh
18.10.2022 07:00 •  Информатика

Var s: string; k, i: integer; begin readln(s); k: =0; for i: =1 to length(s) do if s[i]='.' then k: =k+1; writeln('количество точек в строке=',k); end. изменить программу так, чтобы она удаляла все точки изтекста после нахождения их количества

👇
Ответ:
MisSashaKotik
MisSashaKotik
18.10.2022
Var s:string; k, i, n:integer;
begin
readln(s);
k:=0; 
n:=Length(s);
i:=1;
while (i<=n) do
begin
   if s[i]='.' then
   begin
      k:=k+1;
      Delete(s,i,1);
      i:=i-1;
      n:=n-1;
   end;
   i:=i+1;
end;
  writeln('количество точек в строке=',k);
  writeln('новая строка:   ',s);
end.
4,4(80 оценок)
Открыть все ответы
Ответ:
koteleva
koteleva
18.10.2022
Const
    m = 5;
    n = 4;
Var
    A: array[1..m, 1..n] of real;
    i, j: integer;
    max: real;
Begin
    for i := 1 to m do begin
        writeln();
        for j := 1 to n do begin
            A[i,j] := random(200) - 100;
            write(A[i,j]:5, ' ');
 
            if ((i=1) and (j=1)) or (max < abs(A[i,j])) then
                max:=abs(A[i,j]);
        end;
    end;
   
    writeln();
    writeln('Max = ', max);
 
    for i := 1 to m do begin
        writeln();
        for j := 1 to n do begin
            A[i,j] := A[i,j] / max;
            write(A[i,j]:5:2, ' ');
        end;
    end;
End.
4,4(73 оценок)
Ответ:
searchsignal
searchsignal
18.10.2022
"наименьшее число среди чётных элементов последовательности" - эти слова можно понимать двояко: "элементы, которые стоят на чётных местах в последовательности (второй, четвёртый, шестой и т.д.)" ИЛИ "элементы, значение которых чётное". Поэтому два решения:

Для элементов, стоящих на чётных местах в последовательности:
Program Starays;
uses crt;
const n=10;
var
   i,ch,min:integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('*** OK ***');
  writeln(); writeln();
  writeln('Программа запрашивает N чисел, находит наименьшее число среди чётных элементов последовательности');
  write('Введите 1-e число: '); read(ch);
  write('Введите 2-e число: '); read(ch);
  min:=ch;
  for i:=3 to n do
    begin
      write('Введите ',i,'-e число: '); read(ch);
      if (min>ch) and (i mod 2=0) then min:=ch;
    end;
  writeln('Минимальное число среди элементов последовательности с четными номерами равно ',min);
end.

Для элементов, значение которых чётное:
Program Starays;
uses crt;
const n=10;
var
  i,ch,k,min:integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('*** OK ***');
  writeln(); writeln();
  writeln('Программа запрашивает N чисел, находит наименьшее число среди чётных элементов последовательности');
{находим первый чётный элемент}
  k:=1;
  repeat
    write('Введите ',k,'-e число: '); read(ch);
    k:=k+1;
  until ch mod 2 = 0;
  min:=ch;
 {находим остальные чётные элементы} 
  for i:=k to n do
    begin
      write('Введите ',i,'-e число: '); read(ch);
      if (ch mod 2 = 0) and (min>ch) then min:=ch;
    end;
  writeln('Минимальное число среди элементов, значение которых чётное, равно ',min);
end.
4,6(71 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ