Var
i: integer;
d, s: real;
begin
d := 10;
s := d;
for i := 2 to 7 do
begin
d := d * 1.1;
s := s + d;
end;
writeln(s);
end.
Блок-схему не умею. Но эта программа хоть работает и правильно
1024000 * 5 = 5120000 Бит
1Бит = 0,000125Кбайт
5120000 * 0,000125 = 640Кбайт
Масса одного яблока равна массе одной груши.
Var
i, n, m, j, max: integer;
ar: array[1..10000, 1..10000]of integer;
sum: array[1..10000]of integer;
begin
readln(n, m);
for i := 1 to n do
for j := 1 to m do
begin
read(ar[i, j]);
sum[j] := sum[j] + ar[i, j];
end;
writeln;
for i := 1 to m do write(sum[i], ' ');
end.