Const R=14; var i,k:integer; W:array[1..R] of longint;
begin Write('Введите число членов последовательности (1-',R,'): '); Readln(k); if (k<1) or (k>R) then Writeln('Вы ввели неверное значение') else begin Write('Члены последовательности: 1'); w[1]:=1; for i:=2 to k do begin w[i]:=5*w[i-1]; Write(', ',w[i]) end; Writeln end end.
Тестовое решение: Введите число членов последовательности (1-14): 14 Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125
Var r,i,y:integer; W:array[1..10000] of integer; begin write('R='); read(r); y:=1; for i:=1 to r do begin w[i]:=y; y:=y*5; writeln('W[',i,']=',w[i]); end; end.
Program n1; Uses Crt; var a: array[1..30,1..30] of integer; k,m,i,j,s: integer; begin for i:=1 to 18 do begin for j:=1 to 12 do begin a[i,j]:=random(5001)+5000; write(a[i,j]:6); end; writeln; end; writeln; s:=0; for i:=1 to 18 do s:=s+a[i,6]; writeln('Summa: ', s); end.
Высчитывает все правильно. Зарплату поставил от 5000 до 10000 тысяч рублей, строкой a[i,j]:=random(5001)+5000; (b-a+1)+a - формула для расчета интервала чисел, т.е. зарплату поставил от 5000 до 10000, получается: a = 5000 b = 10000 (10000-5000+1)+5000 = (5001)+5000; Если захочешь поменять сумму зарплаты, думаю поймешь теперь как. for i:=1 to 18 do s:=s+a[i,6]; - этой строкой изменяю i (т.е. работников), а j оставляю неизменным и равным 6, так как июнь 6-ой месяц по счету.
Шаг 1. Рабочий поезд идет по главному пути и проходит весь за начало тупика. Затем он останавливается и задним ходом заходит в тупик, где отцепляет два вагона, а сам проходит вперед. Шаг 2. Пассажирский поезд проходит вперед за начало тупика, к последнему своему вагону прицепляет два вагона рабочего поезда и, двигаясь вперед, выводит их из тупика. Затем пассажирский поезд задним ходом отходит за начало тупика. Шаг 3. Рабочий поезд (тепловоз и вагон) задним ходом полностью заходит в тупик. Шаг 4. Пассажирский поезд отцепляет два рабочих вагона и идет по свободному пути в нужном направлении. Шаг 5. Рабочий поезд (тепловоз и вагон) выходит из тупика, задним ходом подходит к своим вагонам, цепляет их и занимает свое первоначальное положение.
R=14;
var
i,k:integer;
W:array[1..R] of longint;
begin
Write('Введите число членов последовательности (1-',R,'): ');
Readln(k);
if (k<1) or (k>R) then Writeln('Вы ввели неверное значение')
else begin
Write('Члены последовательности: 1');
w[1]:=1;
for i:=2 to k do
begin
w[i]:=5*w[i-1];
Write(', ',w[i])
end;
Writeln
end
end.
Тестовое решение:
Введите число членов последовательности (1-14): 14
Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125