Var
s: string;
i: integer;
begin
readln(s);
for i:=length(s) downto 1 do
if s[i] = ' ' then
delete(s, i, 1);
writeln(s);
<span>end.
Пример входных данных: Мама мыла раму
</span>Пример выходных данных: Мамамылараму
Я так понял тебе нужно на паскале, тогда держи:
program dataScience;var x,y,z, sum: integer;beginsum:=0;read(x, y, z); if x=>0 then//проверка на положительность x if y=>0 then//проверка на положительность y if z=>0 then//проверка на положительность z sum:=(x+y+z)/3;//счёт среднего writeln(sum);//вывод среднего арефметического end.
Самое первое правило безапасности в сети интернет - это,конечно,осторожность. Не переходить по всплывающим ссылкам,по неизвестным сайтам. Как говорится: волков бояться-в лес не ходить.
Второе,как я думаю - это включенная защита антивируса от спама. Там так же могут быть и вредоносные вирусы и материалы порнографической информации.
Третье- это проверенные источники.
И в общем,я думаю, если быть осторожным и внимательным - сеть интернет,будет очень полезным.
var a: array [1..100] of integer;
i,n,min,max:integer;
Begin
read(n);
for i := 1 to n do
read(a[i]);
min:=a[1];
max:=a[1];
for i:= 1 to n do begin
write(a[i],' ');
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln(min,max);
End.
