Ребят по-братски выручите очень надо создать проект, который в заданном тексте удаляет все пробелы. ПРОШУ ПОМОГИТЕ

Знания

Информатика

2 ответа:

09Sawa094 года назад

0 0

C++

#include <iostream>
#include <string>
using namespace std;
int main()
{
string str;

cout << "Enter the string: ";
getline(cin, str);

for (int i = 0; i < str.size(); i++)
{
if (str[i] == ' ') str.erase(i, 1);
}

cout << str << endl;
return 0;
}

belazckm [3]4 года назад

0 0

// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln(ReadlnString.Replace(' ',''))
end.

Пример
А роза упала на лапу А з о ра
АрозаупаланалапуАзора

Читайте также

Дано условие задачи и программа, ее решающая. Предложить набор тестов для проверки работоспособности программы. Составить програ

wancelor

1) вводить три равных натуральных числа - треугольник равносторонний. Результат программы TRUE ⇒ программа работает корректно
2) вводить три неравных натуральных числа - треугольник не равносторонний. Результат программы FALSE ⇒ программа работает корректно

3) ввести три нуля - треугольник не существует. Результат программы TRUE ⇒ программа работает некорректно
4) вводить три равных отрицательных числа - треугольник не существует. Результат программы TRUE ⇒ программа работает некорректно
5) ввести три равных или неравных вещественных числа - треугольник существует. Результата программы нет (ошибка типов) ⇒ программа работает некорректно

0 0

4 года назад

Написать программу, которая строит на одной координатной плоскости разным цветом графики функций y = sin(x) и y = cos(x) на пром

joker845 [3]

Uses
graphABC;
const
W = 800; H = 500;

function DrawSin(x: real): real;
begin
DrawSin := sin(x);
end;

function DrawCos(x: real): real;
begin
DrawCos := cos(x);
end;

var
x0, y0, x, y, xLeft, yLeft, xRight, yRight, n: integer;
a, b, fmin, fmax, x1, y1, x2, y2, mx, my, dx, dy, num: real;
i: byte;
s: string;
begin
SetWindowSize(W, H);
xLeft := 50;
yLeft := 50;
xRight := W - 50;
yRight := H - 50;
a := -10; b := 10; dx := 1;
fmin := -5; fmax := 5; dy := 1;
mx := (xRight - xLeft) / (b - a);
my := (yRight - yLeft) / (fmax - fmin);
x0 := trunc(abs(a) * mx) + xLeft;
y0 := yRight - trunc(abs(fmin) * my);
line(xLeft, y0, xRight + 10, y0);
line(x0, yLeft - 10, x0, yRight);
SetFontSize(12);
SetFontColor(clBlue);
TextOut(xRight + 20, y0 - 15, 'X');
TextOut(x0 - 10, yLeft - 30, 'Y');
SetFontSize(7);
SetFontColor(clRed);

n := round((b - a) / dx) + 1;
for i := 1 to n do
begin
 num := a + (i - 1) * dx;
 x := xLeft + trunc(mx * (num - a));
 Line(x, y0 - 3, x, y0 + 3);
 str(Num:0:1, s);
 if abs(num) > 1E-15 then
 TextOut(x - TextWidth(s) div 2, y0 + 10, s)
end;

n := round((fmax - fmin) / dy) + 1;
for i := 1 to n do
begin
 num := fMin + (i - 1) * dy;
 y := yRight - trunc(my * (num - fmin));
 Line(x0 - 3, y, x0 + 3, y);
 str(num:0:1, s);
 if abs(num) > 1E-15 then
 TextOut(x0 + 7, y - TextHeight(s) div 2, s)
end;
TextOut(x0 - 10, y0 + 10, '0');

x1 := a;
x2 := a;
while x1 <= b do
begin
 y1 := DrawSin(x1);
 y2 := DrawCos(x2);
 if ((x1 >= -2*pi) and (x1 <= 2*pi)) then
 begin
 x := x0 + round(x1 * mx);
 y := y0 - round(y1 * my);
 if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clBlue);

 x := x0 + round(x2 * mx);
 y := y0 - round(y2 * my);
 if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clGreen);
 end;
 x1 := x1 + 0.001;
 x2 := x2 + 0.001;
end
end.

0 0

3 года назад

Помогите пожалуйста решить задания по информатике. Спасибо получите 100\%. можно с решением пожалуйста.Задание 1.У короля было т

Ирина0870 [14]

1) 50*49*48
2) (15*10) + (5*15*10)

0 0

4 года назад

Як записати алгоритм перегляду вмiст папки ?

TeganSharp [14]

Початок -> Запускаемо компьютер -> втримуємо ЛКМ (Ліва клавіша Миші) ->

переводимо бажану програму/завдання в папку -> Повідомити результат ->

Кінець

0 0

3 года назад

На лугу пасутся 12 коров. Дедушка говорит Васе Пупкину, приехавшему из города в гости: «Вон та, крайняя справа – это наша Зорька

Раси

Каждый символ это один бит. "Вон та, крайнаяя справа - это наша Зорька." Всего получается 41 битов

0 0

4 года назад