1)
var s:string; i:integer;
begin
readln(s);
for i:=1 to length(s) do
if (i mod 2=1)and(s[i]='н') then writeln(i,' - н');
end.
Пример:
Дано предложение. Вывести "столбиком" все его буквы н, стоящие на нечетных местах
3 - н
53 - н
67 - н
2)
var s,s1,s2:string;
begin
s:='вертикаль';
s1:=s[4]+s[5]+s[3];
s2:=s[1]+s[2]+s[4]+s[6]+s[7];
writeln(s1,' ',s2);
end.
Результат:
тир ветка
3. Замечание. Предполагается, что слова в предложениях отделяются друг от друга одним пробелом.
3 а)
var s:string; i,k:integer;
begin
readln(s);
k:=0;
for i:=1 to length(s) do
begin
if (s[i]='а')and(k=0) then
begin s[i]:='о'; k:=1; end;
if s[i]=' ' then k:=0;
end;
writeln(s);
end.
Пример:
Напечатать все его слова, предварительно преобразовав каждое из них по правилу
Нопечатать все его слово, предворительно преоброзовав кождое из них по провилу
3 б)
var s,sl,s_new:string; i:integer;
begin
readln(s);
s:=s+' ';
s_new:=''; sl:='';
for i:=1 to length(s) do
if s[i]<>' ' then sl:=sl+s[i]
else begin
while pos(s[i-1],sl)>0 do delete(sl,pos(s[i-1],sl),1);
s_new:=s_new+sl+s[i-1]+' ';
sl:='';
end;
writeln(s_new);
end.
Пример:
нечетное предложение больше четного
нчтное прдложние больше четнго
В долговечности и прочности. Надёжности в общем
(x<11) и (x>=9) - пересечение множеств решений этих неравенств, то есть это промежуток [9;11)
(x<5) или (x принадлежит [9;11)) - это равносильно объединению множеств, то есть x будет из промежутка (-oo;5)U[9;11)
Целые положительные числа из данного интервала:
1,2,3,4,9,10 - 6 чисел
Ответ: 6
"Паскалей" различных много. Массивы тоже бывают разные. В вопросе ничего не детализировано, поэтому речь пойдет об одномерных массивах.
1. Турбо (Борланд) Паскаль. Массив - статический, в нем последний элемент не нужно определять, поскольку его индекс известен по описанию массива.
2. Borland Delphi, Free Pascal. Статические массивы - все как и в Турбо Паскаль. Но есть и динамические массивы, индексируемые от нуля, поэтому индекс последнего элемента в них равен количеству элементов минус единица. Можно пользоваться функцией Length(a), возвращающей текущее количество элементов в массиве.
3. PascalABC.NET 3.3. Действительно все, что написано выше. И добавочно можно написать a.Length вместо Length(a).
Ох, так уж и быть...
Д.б. в программе:(Обрати внимание на отступы и большие/маленькие буквы в переменных!!!)
Var a: integer; b, c, x: real;
Begin
a:=7;
b:=3,2;
c:=a+b;
WriteLn('Сумма = ', c{английская!!!});
c:=c/2;
x:=a-c;
WriteLn('x = ', x, '; квадрат x = ', x*x);
End.
На все вопросы почему заменил сумма <- summa и почему присваивания поставил в разные строки отвечай: "Так легче читается программа!!!"
На экране будет:
Сумма = 10,2
x = 1.9; квадрат x = 3.61