Авиакомпания перевезла в первый год 21 тыс. пассажиров.каждый следующий год увеличила перевозки на 4%.сколько тыс. пассажиров перевезено за 5 лет? через сколько лет удвоится пассажиропоток. с по информатике , напишите программу.
Var n,s,k:integer; begin // 1 n:=21000; s:=n; for k:=2 to 5 do begin n:=round(n*1.04); s:=s+n; end; writeln('s = ',s); // 2 n:=21000; k:=1; while n<2*21000 do begin n:=round(n*1.04); k:=k+1; end; writeln('k = ',k,' n = ',n); end.
Var a: array[1..1000,1..1000] of integer; i,j,s,n,m: integer; begin; write ('Введите количество строк: '); readln (n); write ('Введите количество столбцов: '); readln (m); s:=0; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(-20,20); write (a[i,j]:4); end; writeln; if a[i,m] >= 0 then s:=s+a[i,m]; end; writeln; writeln ('Сумма положительных элементов последнего столбца = ',s); end.
Const n=5; m=11; var a: array[1..n,1..m] of integer; i,j,s: integer; begin; s:=0; writeln ('Количество учеников по классам:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(25,30); write (a[i,j]:3); end; writeln; end; writeln; write ('Введите номер параллели: '); readln (j); for i:=1 to n do s:=s+a[i,j]; writeln ('В ',j,'-ой параллели всего ',s,' учеников'); end.
![Вдвумерном массиве произвольного размера, заданного на промежутке случайных чисел [-20; 20]найти и в](/tpl/images/0673/3886/943e3.jpg)
begin
// 1
n:=21000;
s:=n;
for k:=2 to 5 do
begin
n:=round(n*1.04);
s:=s+n;
end;
writeln('s = ',s);
// 2
n:=21000; k:=1;
while n<2*21000 do
begin
n:=round(n*1.04);
k:=k+1;
end;
writeln('k = ',k,' n = ',n);
end.
Результат:
s = 113745
k = 19 n = 42544