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

Написать на языке с++ ввести строку символов. подсчитать наибольшее количество точек идущих подряд (реализовать через функцию). вывести на экран результат вычисления.

👇
Ответ:
Irakli2007
Irakli2007
21.11.2020
#include <iostream>
#include <string>
using namespace std;
unsigned dotsConuter(const string &s)
{
unsigned i, j, max = 0;
for (i = 0; i < s.length(); ++i) {
if (s[i] == '.') {
for (j = 1; ((i + j) < s.length()) && (s[i + j] == '.'); ++j);
max = (max < j) ? j : max;
}
}
return max;
}

int main()
{
string str("dots.. more dots");
cout << dotsConuter(str) << endl;
return 0;
}
4,6(57 оценок)
Открыть все ответы
Ответ:
marina2002ermol
marina2002ermol
21.11.2020
Const
n=10;m=7;
var
a:array[1..n,1..m]of integer;
flag,i,j,b:integer;
begin
     for i:=1 to n do
         begin
             writeln;
                 for j:=1 to m do
                      begin
                        a[i,j]:=random(312)-111;
                        write(a[i,j]:4);
                      end;
            end;
writeln;
Writeln('B ?');
readln(b);
for i:=1 to n do
  for j:=1 to m do
      if a[i,j]=b then
          flag:=1;
if flag=1 then
   writeln('Yes')
else
   writeln('N');
end.

вариант 2
const
n=10;m=7;
var
a:array[1..n,1..m]of integer;
k,i,j,b:integer;
begin
     for i:=1 to n do
         begin
             writeln;
                 for j:=1 to m do
                      begin
                        a[i,j]:=random(312)-111;
                        write(a[i,j]:4);
                      end;
            end;
writeln;
Writeln('B ?');
readln(b);
for i:=1 to n do
  for j:=1 to m do
      if a[i,j]=b then
          k:=k+1;
if k<>0 then
   writeln('Yes')
else
   writeln('N');
end.
4,6(54 оценок)
Ответ:
fedun20042004
fedun20042004
21.11.2020
{1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран }
var L:array [1..9] of byte;
    n,i:byte;
begin
  N:=9;
{считываем с клавиатруры N чисел}
 writeln('введите масссив');
 for i:=1 to n do read(L[i]);
 writeln;
 writeln('Массив:');
 {вывод на экран массива}
 for i:=1 to n do write(L[i]:7);{7 позиций под число}
end.

 {2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.}
 var K:array [1..22] of byte;
    n,i:byte;
begin
  N:=22;
randomize; 
for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]}
 writeln;
 writeln('Массив:');
 {вывод на экран массива}
 for i:=1 to n do write(K[i]:7);{7 позиций под число}
end.
4,8(78 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ