Var S:string; C:char; i:integer; Begin Write('Введите строку: ');ReadLn(S); Write('Введите символ: ');ReadLn(C); Write('Символ "',C,'" встречается на позициях:'); For i:= 1 to Length(S) do if S[i] = C then Write(' ',i) End.
Пример работы программы:
Введите строку: 12345789654621685798546323312125 Введите символ: 5 Символ "5" встречается на позициях: 5 10 17 21 32
С проверкой:
Var S:string; C:char; i:integer; Begin Write('Введите строку: ');ReadLn(S); Write('Введите символ: ');ReadLn(C); i:=1; While (S[i] <> C)and(i<Length(S)) do i:=i+1; if S[i] = C then Begin Write('Символ "',C,'" встречается на позициях:'); For i:= i to Length(S) do if S[i] = C then Write(' ',i) End else WriteLn('Данный символ в строке не встречается') End.
Пример работы программы:
Введите строку: 12312123 Введите символ: 4 Данный символ в строке не встречается
Var
S:string;
C:char;
i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
Write('Введите символ: ');ReadLn(C);
Write('Символ "',C,'" встречается на позициях:');
For i:= 1 to Length(S) do
if S[i] = C then Write(' ',i)
End.
Пример работы программы:
Введите строку: 12345789654621685798546323312125
Введите символ: 5
Символ "5" встречается на позициях: 5 10 17 21 32
С проверкой:
Var
S:string;
C:char;
i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
Write('Введите символ: ');ReadLn(C);
i:=1;
While (S[i] <> C)and(i<Length(S)) do
i:=i+1;
if S[i] = C then
Begin
Write('Символ "',C,'" встречается на позициях:');
For i:= i to Length(S) do
if S[i] = C then Write(' ',i)
End
else
WriteLn('Данный символ в строке не встречается')
End.
Пример работы программы:
Введите строку: 12312123
Введите символ: 4
Данный символ в строке не встречается
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 100 to 405 do
if A mod 13 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 8.85587927807922E+56
Вторая программа:
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 11 to 36 do
if A mod 2 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 4.37068711644365E+17
Третья программа:
Var x:real;
Begin
WriteLn('y(x) = 5*x +6');
x:=1;
Repeat
WriteLn('y(',x:0:3,') = ',5*x+6);
x:=x+0.4
Until x>4;
End.
Результат работы программы:
y(1.400) = 13
y(1.800) = 15
y(2.200) = 17
y(2.600) = 19
y(3.000) = 21
y(3.400) = 23
y(3.800) = 25