// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqRandom(ReadInteger('n='),1,99).Println
end.
<u><em>Тестовое решение:</em></u>
n= 30
8 39 37 3 4 57 33 31 44 12 32 80 14 19 73 64 81 82 36 6 48 12 84 81 6 66 36 51 40 69
A5
2C
__
D1
Даже не знаю, как пытаться объяснять. Тут надо знать минимально 16-ричную систему счисления.
А) В ответе будут все документы, в которых встречается слово чемпионы и слова бег и плавание встречаются в одном предложении.
б) В ответе будут документы, в которых в одном предложении есть слова чемпионы и плавание.
в) В ответе будут документы, в которых есть слова чемпионы, бег и плавание не зависимо от того, в одном они предложении или нет.
г) Здесь в одном предложении должны быть все слова: чемпионы, Европа, бег, плавание.
Круги Эйлера на рисунках.
В порядке возрастания количества ответов: г, б, а, в.
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
Program z1;
var x:integer;
begin
for x:= -10 to -5 do
writeln(x,(x*x*x/4));
for x:=-6 to 0 do
writeln(x,(cos(x));
end.