Составьте программу на Pascal используя блок схему:
где A= 10000 рыб а прирост 10%
В цикле будет:
1) Запас А:= А + 0.10*А – В
2) Прибавить год N:=N+1
Используем Цикл с заданным условием окончания работы (цикл-ДО, цикл с постусловием).
До А < С все будет работаеть. Потом план выполняться уже не будет, т.к. запас рыб не восполнится.
Трудолюбивые лошади человеку уже много тысяч лет.
Сельское хозяйство: До изобретения машин человек использовал лошадей для распашки земли, переработки и перевозки урожая.
Война: Степные воины запрягали коней в лёгкие повозки - колесницы. Позже лошади возили на себе свирепых стрелков и рыцарей во время сражений.
Транспорт: Раньше лошади перевозили людей и почту на большие расстояния. Они считались самым быстрым наземным транспортом.
Спорт: К конным видам спорта относят поло, конкур, родео и другие. Также людям нравятся скачки, и они играют на ипподроме, ставя деньги на коня, который, по их мнению, придёт первым.
УдАчИ
ответ:
uses crt;
var a: array[1..20,1..20] of real;
n,m,i,j: integer;
s: real;
begin
clrscr; randomize;
write('введите кол-во строк: '); readln(n);
write('введите кол-во столбцов: '); readln(m);
for i: =1 to n do
begin
for j: =1 to m do
begin
a[i,j]: =random(100)/10;
write(a[i,j]: 4: 1);
end;
writeln;
end;
for i: =1 to n do
begin
s: =0;
for j: =1 to m do
s: =s+a[i,j];
writeln('сумма ',i,'-ой строки: ',s: 0: 1);
end;
for j: =1 to m do
begin
s: =0;
for i: =1 to n do
s: =s+a[i,j];
writeln('сумма ',j,'-ого столбца: ',s: 0: 1);
end;
for j: =1 to m do
begin
s: =0;
if j mod 2 = 0 then
begin
for i: =1 to n do
s: =s+a[i,j];
writeln('среднее арифметическое ',j,'-ого столбца: ',s/m: 0: 1);
end;
end;
readln;
end.
объяснение: