1)В случаях когда надо показать отношения чего-то к чему-то
2)Они могут быть построены когда надо сравнить несколько данных и показать это наглядно
600 * 1024 * 8 = 4915200 бит в файле
4915200 / (60 * 8) = 10240 Гц
Вроде так)
Program z;{a1=6,d=}const n=7;var a:array[1..n] of real;a1,i:integer;d:real;begina1:=6;d:=(49-6)/7;for i:=1 to n do begina[i]:=a1+(i-1)*d;writeln(a[i]:3);end;
end.
Program task;
var x,i,sum:integer;
begin
readln(x);
sum := 0;
for i := 1 to 4 do
begin
sum := x mod 10 + sum;
x := x div 10;
end;
writeln(sum);
readln;
<span>end. </span>