Подготовить сообщение на тему «кодирование информации».

Сходства в том,что это оптические носители информации,у них одинаковый размер,принцип записи и чтения. раздичия: на двд диске плотнее размещается информация, объем двд диска гораздо больше объема сд диска.

если переменная нужна целая то так:

x: =random(b-a)+a

если можно дробную, то так

x: =(b-a)*random+a

(если сумма цифр числа делится на 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.