var
s1, s2: string;
i: integer;
begin
s2:= ''; //Присваиваем строке начальное пустое значение
writeln('Введите слово s1');
readln(s1);
for i:= 1 to length(s1) do //length(s1) - длина строки s1
if i mod 2 = 0 then s2:= s2 + s1[i];
writeln('Полученное слово: ', s2);
end.
В Linux несколько другие правила построения имен файлов, поэтому вам придется с этим смириться. Начнем с того, что в Linux нет такого понятия, как расширение файла. В Linux несколько другие правила построения имен файлов, поэтому вам придется с этим смириться. Начнем с того, что в Linux нет такого понятия, как расширение файла. Например, возьмем имя файла Documentl.doc. В Windows именем файла является Document 1, a doc — это расширение. В Linux Documentl.doc — это имя файла, расширения нет.
Максимальная длина имени файла — 254 символа. Имя может содержать любые символы (в том числе и кириллицу) , кроме /, \, ?,<, >, *, \ |. Кириллицу в именах файлов я бы не рекомендовал вообще использовать. Если вы уверены, что не будете эти файлы передавать Windows-пользователям (на дискете, по электронной почте) — используйте на здоровье. А если же нужно будет отправить файл по электронной почте (кодировка-то у всех разная, поэтому вместо русскоязычного имени пользователь увидит абракадабру) , лучше использовать латиницу в имени файла.
Также вам придется привыкнуть к тому, что система Linux чувствительна к регистру в имени файла: FILE.txt и FiLe.Txt — это два разных файла.
<span>Для разделения элементов пути используется символ / (прямой слэш) , а не \ (обратный слэш) , как в Windows.</span>
2.
var x:real;
begin
read (x);
if (x>0) then writeln (x-2);
if (x=0) then writeln (10);
if (x<0) then writeln (x*x*x);
end.