Анимированная картинка в цифровом формате
Var
i,x:integer;
begin
i:=0;
while x<>0 do
begin
readln(x);
i:=i+1;
end;
writeln(i);
end.
Сходства:
Одинаковый размер (диаметр 120 мм, толщина 1.6 мм), имеет тот же радужный вид. Лазерный принцип записи.
Различия:
CD-диск использует инфрокрасный лазер (длина волны в возухе 780 нм), а DVD-диск использует красный лазер (650 нм) (меньшая длина волны позволяет более плотнее размещать информацию на DVD-дисках).
Ёмкость DVD (4.7 ГБ) сильно различается от ёмкости CD (700 МБ)
Const
N = 3;
M = 4;
Var
A:array[0..N-1,0..M-1] of integer;
i,j,k:integer;
Begin
For i:= 0 to N-1 do
For j:= 0 to M-1 do
if i*j = 0 then A[i,j]:=1;
if M>N then k:=M
else k:=N;
For k:= 1 to k-1 do
For i:= 1 to N-1 do
For j:= 1 to M-1 do
if (i = k)or(j = k) then
A[i,j]:=A[i-1,j]+A[i,j-1];
For i:= 0 to N-1 do
For j:= 0 to M-1 do
Write(A[i,j],' ');
End.
X^2+1*X^0=26
X^2=25
X=5
основание 5