Ввести в массив B(5) числа и вычислить корень квадратный из каждого элемента и вывести полученный массив на экран. Срочно!!! (Информатика. 8 класс. Паскаль ABC)
Answers & Comments
angryfukse
Var i:integer; a:real; b:array[0..5] of integer; begin for i:=1 to 5 do begin write('Введите числа массива: '); readln(b[i]); a:=sqrt(b[i]); writeln('Ответ: ',a); end; readln; end.
3 votes Thanks 2
Лизочка2012
"Введите числа массива: 3 Ответ: 1.73205080756888 Так должно быть? Уточняю, ибо учитель строгий :(
angryfukse
Корень из трёх равен именно этому числу =) Можешь проверить на калькуляторе.
Answers & Comments
i:integer;
a:real;
b:array[0..5] of integer;
begin
for i:=1 to 5 do begin
write('Введите числа массива: ');
readln(b[i]);
a:=sqrt(b[i]);
writeln('Ответ: ',a);
end;
readln;
end.
Ответ: 1.73205080756888
Так должно быть? Уточняю, ибо учитель строгий :(
Не поняла ^^"