Ребят по-братски выручите очень надобно создать проект, который в данном тексте

Язык-то какой ? Паскаль? Бейсик? Си?

Бейсик пожалуйста

QBasic:

CLSINPUT SFOR i = 1 TO LEN(S)IF MID(S,i,1) <> " " THENS2 = S2 + MID(S,i,1)END IFNEXT iPRINT S2END

Это точно подойдет?

На QBasic работает, а на других - вряд ли

Спасибо, выручили не представляете как

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

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

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

C++

include lt;iostreamgt;
include lt;stringgt;
using namespace std;
int main()

string str;

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

for (int i = 0; i lt; str.size(); i++)

 if (str[i] == ' ') str.erase(i, 1);


cout lt;lt; str lt;lt; endl;
return 0;