<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (sn,pp,kp):=(0,1,0);
var n:integer;
repeat
Read(n);
if (n<0) and n.IsOdd then sn+=n
else
if (n>0) and (n mod 3=0) then begin pp*=n; kp+=1 end
until n=0;
if sn=0 then begin
Writeln('Нет отрицательных нечетных чисел');
if kp=0 then Writeln('Нет положительных чисел, кратных 3')
else Writeln('Произведение положительных чисел, кратных 3: ',pp)
end
else begin
Writeln('Сумма отрицательных нечетных чисел: ',sn);
if kp=0 then Writeln('Нет положительных чисел, кратных 3')
else Writeln('Произведение положительных чисел, кратных 3: ',pp)
end
end.
<u>Пример</u>
-367 23 62 7 12 -24 90 152 -63 0
Сумма отрицательных нечетных чисел: -430
Произведение положительных чисел, кратных 3: 1080
С=12; A=10;
12 * 16(четвёртой степени) + 2 * 16(третьей степени) + 10 * 16 (в квадрате) + 1 * 16(первой степени) + 6 * 16(нулевой степени)
12 * 65536 + 4096 *2 + 256 * 10 + 16 + 6 = 786432 + 8192 + 2560 +22 = 797206
Ответ : 797206
Ответ:
Всё очень просто. Смотри!
Объяснение:
1. Ответ: 5 файлов. Файлы имеют разрешение такие как jpeg., tif., doc. и т. д.
2. Папок 4. Папки не имеют разрешиний и в них хранятся файлы. Но они могут быть пустыми.
3. И путь. Нужно просто смотреть по порядку и записывать через слеш /.
Вот:
Е:/Байкал/Рыбы/Омуль. jpeg.
Program n1;
var a: array[1..15] of integer;
min,i: integer;
begin
randomize;
a[1]:=random(41)-20;
min:=a[1];
for i:=2 to 15 do
begin
a[i]:=random(41)-20;
if a[i]<min then min:=a[i];
end;
write(min);
end.