8. Совокупность мировых систем телекоммуникаций и циркулирующей в них информации
А) киберпространство Б) Web - сервер
B) Web – сайт Г) Web – браузер
<em><u>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</u></em>
<em><u>// Внимание! Если программа не работает, обновите версию!</u></em>
begin
var sogl:='бвгджзйклмнпрстфхцчшщ';
var s:=readlnString('>').ToLower;
s.Where(c->Pos(c,sogl)>0).Distinct.Sorted.Println;
end.
<u>Пример</u>
> А роЗА УПалА На АПУ аЗора
злнпр
А) при x ∈ [-3;8];
б) при x ∈ (- бесконечности;-3)V(8;+бесконечности).
Код PascalABC.NET 3.2:
Var S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
if S[i] = 'д' then
if S[i+1] = 'о' then
if S[i+2] = 'м' then
k:=k+1;
WriteLn(k)
End.
Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 < d1 then d1:=d3;
if d2 < d1 then d1:=d2;
WriteLn(d1)
End.
А) массив из 10 элементов, заполненный случайными целыми значениями от -50 до 50
б) массив из 20 элементов заполненный натуральными числами от 1 до 20 по возрастанию
в) массив из 5 элементов, заполненный натуральными нечетными числами от 1 до 9 по возрастанию
