Question

Составьте программу которая найдёт сумму 3х чисел, каждое из которых выбрано случайным образом из диапазона от 10 до 20

Answer 1

Var
   a,b,c:byte;
Begin
a:=random(11)+10;
b:=random(11)+10;
c:=random(11)+10;
WriteLn('a = ',a);
WriteLn('b = ',b);
WriteLn('c = ',c);
WriteLn('a + b + c = ',a+b+c)
End.