Ответ:
var
r1, r2, r3: real;
begin
readln(r1, r2, r3);
if (r1>=r2) and (r1>=r3) then
writeln(r1)
else if (r2>=r1) and (r2>=r3) then
writeln(r2)
else
writeln(r3);
end.
Объяснение:
P = 2
Ответ a
================
Var
a: array [1..5] of integer;
i: byte;
k: integer := Integer.MaxValue;
begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 5 do
k := Min(k, a[i]);
writeln(k);
<span>end.</span>
Значит, разница между CD и DVD в том, что последний изготовлен так, что на нем можно использовать лазер меньшей длины волны. Насколько я понял.
Первый записываемый слой двухслойного диска является полупрозрачным, обеспечивая при этом достаточную отражающую способность для чтения/записи первого слоя данных. В то же время он пропускает достаточное количество энергии лазера для чтения/записи второго слоя после изменения фокусировки лазера.Blu Ray – новый формат, способный хранить большие объемы информации и воспроизводить высококачественные изображения и видео. Благодаря использованию передовой технологии, Blue Ray состоит из более плотных слоев и читается более тонким лазером, чем обычные DVD.