Var i : Integer;
Begin
For i:=100 to 999 do
If (i mod 4 = 2) and (i mod 5 = 2) and (i mod 6 = 2) then Writeln(i);
end.
Результат:
122
182
242
302
362
422
482
542
602
662
722
782
842
902
962
Память компьютера под номером 2 больше так как гигабайтов больше
#include <iostream>
<span>#include <iomanip>
</span><span>using namespace std;
</span>int main() {
<span> int n;
</span><span> cout<<"n = "; cin>>n;
</span><span> int a[n];
</span><span> cout<<"massiv: ";
</span><span> for (int i=0; i<n; i++) cin>>a[i];
</span><span>// по возрастанию
</span><span> for (int i=0; i<n-1; i++)
</span><span> for (int j=i+1; j<n; j++)
</span><span> if (a[j]<a[i]) swap(a[i],a[j]);
</span><span>// </span><span>вывод на экран
</span><span> for (int i=0; i<n; i++) cout<<a[i]<<" ";
</span><span> cout<<endl;
</span><span>// по убыванию
</span><span> for (int i=0; i<n-1; i++)
</span><span> for (int j=i+1; j<n; j++)
</span><span> if (a[j]>a[i]) swap(a[i],a[j]);
</span><span>// вывод на экран
</span><span> for (int i=0; i<n; i++) cout<<a[i]<<" ";
</span><span> cout<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>
Begin
Writeln(20,' ',25);
Writeln(20); Writeln(25)
end.