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

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.

1) 3 яблока;

2) 4 яблока;

3) 5 яблок;

4) n+1 яблок.

объяснение: если доставать яблок столько же, сколько и сортов, то они могут быть все разных сортов.

если же доствать яблок на одно больше, чем количество сортов, и даже если все кроме последнего разных сортов, то последнее обязательно будет одного и того же сорта с каким-нибудь из остальных.

program kvadrat;

var i : integer;

begin

for i: = 10 to 100 do

writeln ( i: 2, i*i : 5);

readln;

end.