strelnikov-aa
?>

Переведите с Паскаля в 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.

Информатика

Ответы

Litvin_Ivanov
Объект в программировании — некоторая сущность в виртуальном пространстве, обладающая определённым состоянием и поведением, имеющая заданные значения свойств (атрибутов) и операций над ними (методов) [1]. Как правило, при рассмотрении объектов выделяется то, что объекты принадлежат одному или нескольким классам, которые определяют поведение (являются моделью) объекта. Термины «экземпляр класса» и «объект» взаимозаменяемы. [2]

Объект, наряду с понятием класс, является важным понятием объектно-ориентированного подхода. Объекты обладают свойствами наследования, инкапсуляции и полиморфизма [1].
shangina1997507

Адекватная версия:

PascalABC.NET

begin

 var expr := Readstring();

 expr.Split(' ')[0].Println;

end.

Версия "Нас так учили"

var  

expression: string;

s_index: byte;

begin

 s_index := 1;

 readln(expression);

 while expression[s_index] <> ' ' do begin

   write(expression[s_index]);

   s_index := s_index + 1;

 end;  

 

end.

Объяснение:

Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Переведите с Паскаля в 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.
Ваше имя (никнейм)*
Email*
Комментарий*