Задача 16 Урок 15
Primary tabs
Напишите функцию, которая принимает на вход целое число N и возвращает строку,
содержащую арифметическое выражение вида:
a1 # a2 # ..... # aN
Где:
a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)
var n: integer; function myfunction(n : integer) : string; var z : array [1..3] of char= ('*', '+', '-'); min, max, i, a, j : integer; s : string; begin randomize(); min := 1; max := 100; for i := 1 to n-1 do begin j := 1 + random(3); a := min + random(max - min + 1); str(a,s); result := result + s + z[j]; end; a := min + random(max - min + 1); str(a,s); result := result + s; end; begin writeln('Введите число'); readln(n); write('Выражение: '); write(myfunction(n)); writeln; write('Программа завершила свою работу'); readln();readln(); end.
- Log in to post comments
- 337 reads