Регистрация
Dezzy12
03.06.2023 10:36
Информатика
Есть ответ 👍

Переведите с Паскаля в Java
const
m = 20;{максимальное количество элементов}
var
a: array[1..m] of real;
i, n: integer;
begin
Write('Введите количество элементов (от 1 до 20): ');
Readln(n);
Writeln('Вводите через пробел элементы массива');
for i := 1 to n do
begin
Read(a[i]);
a[i] := sqr(a[i])
end;
Writeln('Результирующий массив:');
for i := 1 to n do Write(a[i]:0:4, ' ');
Writeln
end.

127
471
Посмотреть ответы 1

Ответы на вопрос:

DAmigoX
DAmigoX
4,5(70 оценок)
Решение: delphi/pascal program begin4; var d,l: real; begin write('введите диаметр окружности : '); readln(d); l: =3.14*d; writeln('длина окружности равна: ', l); end.

Популярно: Информатика