Информатика. нужна , а то сама не понимаю. определитесь значение переменной у после выполнения фрагмента программы. паскаль x: =25; y: =-20; while x*y < 0 do begin x: =x-5; y: =y+2 end; y=

Чистая математика)
x:=25-5 (20)
y:=-20+2 (-18)

y:=-18

После первой итерации условие ещё выполняется. После четвёртой х=25-20=5, а у=-20+8=-12. Пятая итерация даёт х=0, соответственно х*у=0 и условие уже не выполняется. ответ у=-12

должно по идее получиться "нет худо без добра.", но у меня получилось

"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит

 

function Pow(a, x:integer):integer;
var
  rez, i:integer;
begin
  rez := 1;
  for i := 1 to x do
    rez := rez * a;
  Pow := rez;
end;

function BinToDec(a:string):integer;
var
i ,r:integer;
begin
  r := 0;
  for i := length(a) downto 1 do
    r := r + StrToInt(a[i]) * Pow(2, length(a) - i);

  BinToDec := r;
end;

var
  s:array[1..100] of string;
  i:integer;
begin
  s[1] := '11001101';
  s[2] := '11100101';
  s[3] := '11110010';
  s[4] := '00100000';
  s[5] := '11110101';
  s[6] := '11110011';
  s[7] := '11100100';
  s[8] := '11100000';
  s[9] := '00100000';
  s[10] := '11100001';
  s[11] := '1110010';
  s[12] := '11100111';
  s[13] := '00100000';
  s[14] := '11101110';
  s[15] := '11100001';
  s[16] := '11110000';
  s[17] := '11100000';
  s[18] := '00101110';
  for i := 1 to 18 do
    write(chr(BinToDec(s[i])));
end.

1-Индексом элемента называется номер элемента в массиве  

2-Массив данных имеет общее имя и один тип

3-Массив-это совокупность однотипных данных, хранящихся в последовательных ячейках памяти  

4-В записи D[4]=3.5, D обозначает имя массива  

5-можно назвать этот ряд:2.3, 5.7, 10.89.

 6-правильно описание массива:D: array[1..5] of real

7-команда Randomize

 8-Для заполнения массива путем ввода чисел с клавиатуры мы используем оператор Readln

9-Выводит N значений массива на экран

10-Sum:=sum+a(i)

11-Выбирает минимальный элемент массива

12-условие:If a[i]>0 then k:=k+1

13-значение суммы после выполнения следующего фрагмента программы равн.25

14-знач.суммы 21

15-знач.переменн.9

16-нельзя определить значение переменной

17-знач>перемен.6

18-знач.перемен. 2

19-знач.перемен.12

20-знач.перемен.6