Задача 16 Урок 15
Primary tabs
Напишите функцию, которая принимает на вход целое число N и возвращается строку, содержащую арифметическое выражение вида:
var n:integer; function randomvirazhenie(n:integer):string; var i:integer; CharArr: array of char; begin CharArr := ['*', '+', '-']; randomize; for i:=1 to n do begin write( random(100), ' '); if i<n then write( CharArr[random(3)] , ' ' ); end; end; begin writeln('Enter n '); readln(n); writeln('random expression '); randomvirazhenie(n); writeln(); write('End'); readln(); end.
Вывод консоли:
Enter n 5 random expression 23 - 76 + 29 - 87 - 34 End
- Log in to post comments
- 36 reads