uses crt;
var i:integer;
begin
For i:=20 to 50 do
If (i mod 3=0) and (i mod 5 <> 0) then writeln(i);<span>
end.</span>
const n = 10;
var
mas: array [1..n] of integer;
i,j,h:integer;
begin
randomize;
for i := 1 to n do
begin
mas[i] := random(3);
write(' ',mas[i],' ');
end;
writeln();
for i := 1 to n - 1 do
for j := 1 to n - i do
if(mas[j] = 0) then
begin
h := mas[j];
mas[j] := mas[j + 1];
mas[j + 1] := h;
end;
for i := 1 to n do
write(' ',mas[i],' ');
end.
Папирус, стена, камень, пещера, янтарь
Ответ:
Объяснение:
1. Звуковой, графической, текстовой.
3. логическая связка для поиска по любому из слов
<span>Самой главной деталью компьютера является
+ процессор это как бы мозг компьютера </span>