Помогите! (Паскаль) Сформировать массив W(R) следующим образом: 1,5,25,125...
Помогите! (Паскаль)
Сформировать массив W(R) следующим образом:
1,5,25,125...
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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
Не нашли ответ?
Похожие вопросы