Const n=10;
Var a:array[1..n] of integer;
i,k,j:integer;
Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(10);
Write(a[i],' ');
end;
Writeln;
For i:=1 to n do
Begin
If a[i] mod 3=0 then
Write(a[i],' ');
end;
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if (a[j] > a[j+1]) then
begin
k:= a[j];
a[j] := a[j+1];
a[j+1] := k;
end;
end;
writeln;
for i:=1 to n do
write(a[i],' ');
readln;
<span> end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.Distinct.Count.Println
end.
<h2>abca</h2><h2>3</h2>
X = 5
y = 7
t = x = 5
x = y mod x = 7 mod 5 = 2
y = t = 5
Ответ: 1) x = 2; y = 5; t = 5
И каждая прикладная программа может создавать свои собственные файлы для своих нужд
Javascript:var X=parseFloat(prompt()),S=10,собрали=0;for(var год=0;год<5;год++){собрали+=X*10-2;X+=X*0.07;}alert(собрали);