Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите! (Паскаль)
Сформировать массив 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.