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

Друзья, нужна в составлении программы на паскаль вводим строчку (буквы, цифры, пробелы) с клавиатуры и программа должна найти рядом стоящие символы одинаковые и заменить их пробелом. если к примеру у нас вся строчка из одинаковых символов - то результат - это пустая строчка (одни пробелы) желательно написать с табуляцией, чтобы понятна была структура проги

👇
Ответ:
3nashka
3nashka
19.10.2021
//Pascal ABC.NET 3.1 сборка 1219

Var
 s,s1:string;
 i,n:integer;
 begin
 readln(s);
 i:=1;
n:=length(s);
while i<=n-1 do
  if s[i]=s[i+1] then
   begin
    s1:=s1+' ';
    i:=i+2;
   end
   else
   begin
    s1:=s1+s[i];
    inc(i);
   end;
s:=s1;
writeln(s);
 end.

Пример ввода:
2 is II, ASCII is encoding.
Пример вывода:
2 is  , ASC  is encoding.
4,4(41 оценок)
Открыть все ответы
Ответ:
Сашенька228
Сашенька228
19.10.2021
Program yeah;const N=15;const M=15;var A:array [1..N,1..M] of integer;i,j,b,c,x,y:integer;beginrandomize;write('матрица: ');writeln;for i:=1 to N do begin   for j:=1 to M do beginA[i,j]:=random(100);write(A[i,j]:3);end;writeln;end;c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[1,c];end;end;x:=x+b;c:=c+1;end;writeln('сумма первой строчки: ',x);c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[15,c];end;end;y:=y+b;c:=c+1;end;writeln('сумма последней строчки: ',y);x:=x+y;writeln('общая сумма: ',x);end.
4,7(1 оценок)
Ответ:
0Assistant0
0Assistant0
19.10.2021

using namespace std;

#include <algorithm>

#include <iostream>

#include <vector>

#include <ctime>

int main() {

vector<int> arr;

srand(time(0));

int N = 10;

int min = 9999999, minIndex;

int average = 0;

for(int i = 1; i<=N; ++i) {

 arr.push_back(rand());

 cout << arr[i-1] << " ";

 if(arr[i-1]<min) {

  min = arr[i-1];

  minIndex = i-1;

 }

 average+=arr[i-1];

}

cout << endl << "Min: " << min << endl << "Average: " << average/N << endl;

swap(arr[minIndex], arr[arr.size()-1]);

for(int i = 1; i<=N; ++i) {

 cout << arr[i-1] << " ";

}

cout << endl << " > average: ";

for(int i = 1; i<=N; ++i) {

 if(arr[i-1]>average/N) {

  cout << arr[i-1] << " ";

 }

}

}

4,8(41 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ