Задача 13 Урок 15
Primary tabs
Напишите функцию, которая принимает на вход целое число N и возвращается строку, содержащую арифметическое выражение вида:
a1 # a2 # ..... # aN
Где:a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)
var n,i,a,p:integer; ch:char; function znak():char; var c:char; i:integer; begin randomize (); i:=random(3); if(i=0) then ch:='*'; if(i=1) then ch:='-' else ch:='+'; result:=ch; end; begin randomize(); writeln('Vvedite chislo elementov: '); readln(n); for i:=1 to n do begin if (i=n) then begin a:=random(101); write(a); end else begin ch:=znak(); a:=random(101); write(a,' ',ch, ' '); end; end; end.
Консоль:
Vvedite chislo elementov: 4 62 + 62 + 62 + 75
- Log in to post comments
- 457 reads
vedro-compota
Sat, 02/26/2022 - 20:36
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)