Готово :)
..............................
Какой язык? Я напишу как это делается на С.
int massiv [5];
int i=0;
for(i=0; i<5; i++){
massiv[i]=massiv[i]*2;
}
for(i=0; i<5; i++){
printf("%d ", massiv[i]);
}
Как-то так!)
Если чего-то не то, пишите, я отвечу!
var r:real;
begin
write ('Введите радиус окружности: ');
read(r);
writeln ('Диаметр равен: ', r*2:0:3);
writeln ('Длина окружности равна: ', 2*pi*r:0:3);
end.
Аналогично
begin
for var a := 100 to 999 do begin
for var b := 100 to 999 do begin
if a * b = a + b then writeln(a,'-', b);
end;
end;
end.