Дан текст слова в тексте разделены одним или несколькими пробелами Написатл программу удаляющая пробел между словами

Знания

Информатика

1 ответ:

Svetlana13374 года назад

0 0

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var s:=ReadlnString('>');
s:=s.Replace(' ',''); Writeln(s);
end.

Тестовое решение:
> А роза упала на лапу Азора
АрозаупаланалапуАзора

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

Непрерывным называют сигнал: а) принемающий конечное число определенных значений б)непрерывное изменяющийся во времени в) несущ

marusya212121

Напрерывное изменяющийся во времени "б"

0 0

4 года назад

Нужно написать программу подсчитывающую количество чётных и не чётных цифр в числе

OleWoK

//PascalABC.Net 3.0, сборка 1053
var
n: longint;
d, n1, n2: integer;

begin
n1 := 0; n2 := 0;
Write('Введите натуральное число: ');Read(n);
repeat
 d := n mod 10;
 if odd(d) then Inc(n1) else Inc(n2);
 n := n div 10
until n = 0;
Write('Нечетных ', n1, ', четных ', n2)
end.

Тестовое решение:
Введите натуральное число: 3534052
Нечетных 4, четных 3

0 0

4 года назад

. Определите число, полученное выписыванием в обратном порядке цифр заданного целого трёхзначного числа.

Molniya

Var
a:integer;

begin
read(a);
while(a <> 0) do
begin
write(a mod 10);
a := a div 10;
end;
end.

0 0

1 год назад

Помогите пожалуйста с написанием алгоритма и программы) задача во вложении

Сергей9508

Program DvachAnon;
var x:real;
const a=7.5;
function CalcY(x:real):real;
begin
CalcY:= ((3*sqr(a)+2*abs(x))/(2*x-sqrt(3*a)))*2*cos(sqr(x));
end;
begin
write('Введите переменную "х":');
read(x);
writeln('y = ', CalcY(x));
end.
-------------------------------------------------------------
UPD: не уверен, как это правильно должно выглядеть, спросите у кого-нибудь знающего :D

0 0

1 год назад

расположите устройства внешней памяти в порядке убывания их объема:CD-ROM.жесткий диск .дискета.DVD-ROM?пожалуйста помогите реши

Наталья Шеф

жесткийдиск,DVD-ROM,CD-rom,дискета

0 0

4 года назад