Какое число нужно записать вместо вопросительного знака в программном коде, чтобы диапазон случайных чисел был от 20 до 40? ответ введите в числовой форме.

21

Объяснение:

Random(21) возвращает число в диапозоне 0-20

из пяти литровой переливаем в трех литровую получаем два литра сливаем их в ведро повтаряем процедуру получаем в ведре четыре литра

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.