uses GraphABC; Var a,h,x,y:integer; c:char; begin writeln('Read or random? n/r'); repeat readln(c); until (c='n') or (c='r'); if c='r' then begin a:=random(200); writeln('Длина ребра=',a,', Объём=',power(a,3)); end else begin readln(a); writeln('Объём=',power(a,3)); end; x:=windowwidth div 2; y:=round(windowheight*1/3); line(x,y,x,y+a); line(x+a,y,x+a,y+a); line(x,y+a,x+a,y+a); line(x+a div 2,y+a div 2,x+a div 2+a,y+a div 2); line(x,y,x+a,y); line(x+a div 2,y+a div 2,x+a div 2,y-a div 2); line(x,y,x+a div 2, y-a div 2); line(x,y+a,x+a div 2, y+a div 2); line(x+a div 2, y-a div 2,x+a div 2+a,y-a div 2); line(x+a div 2+a, y-a div 2,x+a,y); line(x+a div 2+a,y-a div 2,x+a div 2+a,y-a div 2+a); line(x+a div 2+a, y-a div 2+a,x+a,y+a); end.
Пример ввода: n 16 Пример вывода: Объём=4096
//2
Var X,P:integer; beginwrite('X:'); readln(X); write('P:'); readln(P); if not(odd(X)) then writeln('Кратно 2'); if X mod 3=0 then writeln('Кратно 3'); if X mod P=0 then writeln('Кратно ',P); end.
Пример ввода: 18 6 Пример вывода: Кратно 2 Кратно 3 Кратно 6
function gcd(a: integer; b: integer): integer; {Нахождение НОД} var i: integer; begin while b <> 0 do begin a := a mod b; i := b; b := a; a := i end; result := a end;
function RedFrac(a: Frac): Frac; {Сокращение дроби} var igcd: integer; r: Frac; begin igcd := gcd(a.P, a.Q); r.P := a.P div igcd; r.Q := a.Q div igcd; RedFrac := r end;
function Add(a, b: Frac): Frac; {Сложение дробей} var r: Frac; begin r.P := a.P * b.Q + b.P * a.Q; r.Q := a.Q * b.Q; Add := RedFrac(r) end;
function Mult(a, b: Frac): Frac; {Умножение дробей} var r: Frac; begin r.P := a.P * b.P; r.Q := a.Q * b.Q; Mult := RedFrac(r) end;
var m, n, k: Frac;
begin m.P := 4; m.Q := 15; {4/15} n.P := 9; n.Q := 25; {9/25} k := Add(m, n); Writeln(k.P, '/', k.Q); k := Mult(m, n); Writeln(k.P, '/', k.Q); end.
1ый файл на рандомный ввод
2ой файл с клавы