Задача 13 Урок 15
Primary tabs
Напишите функцию, которая принимает на вход целое число N и возвращается
строку, содержащую арифметическое выражение вида:a1 # a2 # ..... # aNГде:
a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)
var n: integer; function f1(n1: integer): String; var a: array[1..3] of char = ('+', '*', '-'); i: integer; s, s1: String; begin randomize(); for i := 1 to n1 do begin str(i,s1); if i < n1 then s := s + ' ' + s1 + ' ' + a[(random(3)) + 1] else s := s + ' ' + s1; end; result := s; end; begin writeln('Введите целое число от 1 до 100'); readln(n); writeln(f1(n)); readln(); end.
КОНСОЛЬ
Введите целое число от 1 до 100 12 1 * 2 - 3 * 4 - 5 * 6 + 7 * 8 + 9 * 10 - 11 - 12
- Log in to post comments
- 588 reads