Var s,k,a:integer;
begin
writeln('введите четырёхзначное число');
readln(s);
k:=0;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
writeln('перевёрнутое число ==> ',k/10);
end.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
for var i:=100 to 999 do begin
var (flag,j,r):=(True,2,Round(Sqrt(i)));
while flag and (j<=r) do
if i mod j = 0 then flag:=false else j+=1;
if flag then Print(i)
end
end.
#include <iostream>
using namespace std;
int main() {
int n;
cin >> n;
int *arr = new int[n];
for (int i = 0; i < n; i++) {
cin >> arr[i];
}
int max = -1;
int min = -1;
for (int i = 1; i < n; i++) {
if (arr[i] > 0 && arr[i] % 2 == 0) {
if (min == -1) {
min = arr[i];
}
if (max < arr[i]) {
max = arr[i];
}
if (min > arr[i]) {
min = arr[i];
}
}
}
cout << min << " " << max;
system("pause");
return 0;}