1. Запишите выполнение приведенного фрагмента для табличной ве- личины, значениями элементов которой являются числа: 2; -2; 3; 0,25; -4. dob := 1; for i:=1 to 5 do dob := dob * a[i];
Разъясню 1. ИЛИ ложно, когда оба высказывания ложны. Т.е. 0 ИЛИ 0 = 0, в остальных случаях - истина. Значит, НЕ(х>87) И НЕ НЕ(х кратное 9) В первом случае знак можно поменять: (х<=87), убрав при этом НЕ. Двойное отрицание убираем без последствий: (х кратно 9). Наибольшее число, которое меньше или равно 87 И делится на 9 без остатка = 81. 2. 64 = 2^6 16 = 2^4 1 = 2^0 В двоичной записи десятичного числа 1 стоит на месте степени двойки, разряды нумеруются с конца, начиная с нуля. Запишем разряды(их 6, т.к. первая 1 стоит на 6 позиции с конца, а ведущие нули можно убрать (как в десятичной вместо 008 мы пишем 8) 6 5 4 3 2 1 0 1 0 1 0 0 0 1 под разрядами пишем 1 там, где у нас была степень 2. Это двоичная запись числа. В ней 4 нуля. ответ: 4
begin Randomize; Writeln('Элементы массива'); sp:=0; sn:=0; for i := 1 to n do begin a[i] := Random(51)-25; Write(a[i]:4); if a[i]<0 then sn:=sn+a[i] else sp:=sp+a[i] end; Writeln; Writeln('Частное: ',sp/abs(sn)) end.
Вариант со вводом данных с клавиатуры: const n = 15;
var a:array[1..n] of integer; i,sp,sn: integer;
begin Writeln('Вводите через пробел элементы массива'); sp:=0; sn:=0; for i := 1 to n do begin Read(a[i]); if a[i]<0 then sn:=sn+a[i] else sp:=sp+a[i] end; Writeln('Частное: ',sp/abs(sn)) end.
ответ = 12
Объяснение:
const
a: array[1..5] of double = (2, -2, 3, 0.25, -4);
var
dob : Double;
i : integer;
begin
dob := 1;
for i:=1 to 5 do
dob := dob * a[i];
writeln(dob);
end;