<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var x:=-3.14;
while x<=3.14 do begin
Writeln(x:5:2,' ',sqr(sin(x))+sqr(cos(x)));
x:=x+0.2
end
end.
Результат
-3.14 1
-2.94 1
-2.74 1
-2.54 1
-2.34 1
-2.14 1
-1.94 1
-1.74 1
-1.54 1
-1.34 1
-1.14 1
-0.94 1
-0.74 1
-0.54 1
-0.34 1
-0.14 1
0.06 1
0.26 1
0.46 1
0.66 1
0.86 1
1.06 1
1.26 1
1.46 1
1.66 1
1.86 1
2.06 1
2.26 1
2.46 1
2.66 1
2.86 1
3.06 1
Var
S:string;
C:char;
i:integer;
Begin
Write('Введите строку: ');
ReadLn(S);
Write('Введите символ: ');
ReadLn(C);
For i:= 1 to S.Length do
if S[i] = C then
Write(i,' ')
End.
Пример:
Введите строку: Дана строка символов. Определить длину строки. Если длина строки <=20, то найти в строке порядковый номер символа *
Введите символ: а
2 4 11 57 76 113
Ну это слух. ))))))))))))
Что требуется сказать? что он значит? этот двоичный код?