Question

5. Запишіть вираз, результатом якого є ціле випадкове число у діапазоні від 40 до 100.​

Answer 1

var x:byte;

begin

randomize;x:=random(4)+1;

if x=1 then writeln('пики');

if x=2 then writeln('трефи');

if x=3 then writeln('бубни');

if x=4 then writeln('черви');

end.