Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function sum(a, b: integer): integer;
- begin
- sum:=a+b;
- end;
- function pow(value, degree: integer): integer;
- var iterator, result:integer;
- begin
- iterator:=0;
- While iterator < degree do
- begin
- result:=result*value;
- iterator:=iterator+1;
- end;
- end;
- procedure main()
- var result, sum, a,b,c,d:integer
- begin
- //обчислення виразу a+10+b^4+c^10
- //тут типу ввод даних хз як там щось типу readLine(a) чи щось таке :)
- result:=sum(sum(sum(a,10), pow(b,4)),pow(c,10));
- end;
- //ну калькулятор звісно трохи фіговий приклад бо це все реалізовано у мові по замовчуванню, але область даних перенсти можна
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement