Function DecToN(a : Longint; Raz : Byte) : String; Begin If a>Raz-1 then DecToN:=DecToN(a div Raz,Raz)+Rn[(a mod Raz)+1] else DecToN:=Rn[a+1]; end;
Function NToDec(a : String; Raz : Byte) : Longint; Begin If Length(a)>0 then NToDec:=Pos(a[Length(a)],Rn)-1+Raz*NToDec(Copy(a,1,Length(a)-1),Raz) else NToDec:=0; end;
begin readln(a); if a mod 2 = 0 then println('da') else println('net'); end.
1 б) var a: integer;
begin readln(a); if a mod 10 = 7 then println('da') else println('net'); end.
2 а var a: integer;
begin readln(a); if (a div 10+a mod 10) mod 3 = 0 then println('da') else println('net'); end.
2 б var n,a: integer;
begin writeln('Введите число'); readln(n); writeln('Введите a'); readln(a); if (n div 10+n mod 10) mod a = 0 then println('da') else println('net'); end.
#include <stdlib.h>
int main()
{
int n=10, h;
int a[n];
srand (time(NULL));
for (int i=0; i<n; i++)
{
a[i] = rand() % 21 - 10;
printf ("%4d ", a[i]);
}
printf("\n");
for (int i=0; i<n/4; i++){
h = a[i]; a[i] = a[n/2-i-1]; a[n/2-i-1] = h;
}
for (int i=n/2; i<3*n/4; i++){
h = a[i]; a[i] = a[3*n/2-i-1]; a[3*n/2-i-1] = h;
}
for (int i=0; i<n; i++) printf ("%4d ", a[i]);
printf("\n");
return 0;
}
Пример:
-4 -10 -2 -8 3 -2 1 -5 -6 -5
3 -8 -2 -10 -4 -5 -6 -5 1 -2