Microsoft word который вместе с офисом
Program z1;
var st:string;
begin
writeln('Введите строку');
readln(st);
while (pos(' ',st) <> 0) do
begin
delete(st, pos(' ',st), 1);
end;
writeln(st);
readln;
end.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ArrRandom(15,0,50);a.PrintLn;
Writeln(a.Where(t -> t < 50).Count);
end.
Пример:
16 38 2 12 48 5 18 12 27 12 48 5 6 43 28
15
Это человек превращается в волкообразное существо