Задача 16 Урок 15
Primary tabs
Напишите функцию, которая принимает на вход целое число N и возвращается строку, содержащую арифметическое выражение вида:
a1 # a2 # ..... # aNГде:
a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)
program u15z16; var n: integer; function stroka(a:integer): string; var i,t:integer; s,c,res:string; const Chars = '*+-'; //символы которые нужно выводить begin randomize; for i:=1 to a do //выбираем случайное число begin t:=random(99)+1; //выбираем случайное число str(t,c); //переводим число в строку s:= Chars[Random(Length(Chars))+1]; //выбираем случайно символ res:=res+c+s; end; delete(res,length(res),1); //удаляем последний символ в строке result:=res; end; begin writeln('Vvedite N'); readln(n); writeln('N=',n); write(stroka(n)); readln; end.
- Log in to post comments
- 653 reads
vedro-compota
Sun, 01/08/2023 - 14:26
Permalink
решить без str()
_____________
матфак вгу и остальная классика =)
NikSo
Fri, 01/27/2023 - 13:09
Permalink
Решил без str()
NikSo
Fri, 01/27/2023 - 13:10
Permalink
Ошибка при открытии на сайте
При открытии на сайте ошибка,в Лазарусе все норм
vedro-compota
Sun, 01/29/2023 - 13:10
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)