Уровень А type num=integer; { можно поменять на real, longint, даже char... }
procedure Swap(var a,b:num); { меняет местами значения a и b } var t:num; begin t:=a; a:=b; b:=t end;
procedure Moving(var a,b,c:num); begin if a>b then begin Swap(a,b); if b>c then begin Swap(b,c); if a>b then Swap(a,b) end end else begin if b>c then Swap(b,c); if a>b then Swap(a,b) end end;
var a,b,c:num; begin Write('Введите три числа: '); Read(a,b,c); Moving(a,b,c); Writeln(a,' ',b,' ',c) end.
Уровень В function Gcd(a,b: longint): longint; { Нахождение НОД } var i: longint; begin while b <> 0 do begin a := a mod b; i := b; b := a; a := i end; gcd := a end;
procedure ShortFraction(var m,n:longint); var k:longint; begin k:=Gcd(m,n); m:=m div k; n:=n div k end;
var a,b:longint; begin Write('Введите числитель и знаменатель дроби: '); Readln(a,b); ShortFraction(a,b); Writeln('Дробь после сокращения равна ',a,'/',b) end.
Тестовое решение: Введите числитель и знаменатель дроби: 25 15 Дробь после сокращения равна 5/3
int main() { int x, y, z; std::cin >> x >> y >> z; void (*ptr)(int *x, int *y, int *z); ptr = sort; (*ptr)(&x, &y, &z); std::cout << x << " " << y << " " << z << std::endl; system("pause"); return 0; }
inline void sort(int *a, int *b, int *c) { if (*b < *a) std::swap(*a, *b); if (*c < *a) std::swap(*a, *c); if (*c < *b) std::swap(*b, *c); }
for nums in range(4):
Num = int(input())
print("деление на 24 "+str(Num / 24) + " остаток "+str(Num % 24)