Mod - это остаток от деления.
33 / 12 - нацело не делится, нацело делится число 24, а что осталось - это остаток.
33-24 = 9, ответ 9.
I диск = 650 Мбайт
записываем фильм 600 Мбайт < 650 Мбайт
II диск =650 Мбайт
записываем два фильма 55+400 = 450 Мбайт < 650 Мбайт
III диск = 650 Мбайт
записываем музыку 100*3,5=350 Мбайт < 650 Мбайт
Var y: array[1..12] of integer;
i,k:integer; s:real;
begin
for i:=1 to 12 do
read (y[i]);
for i:=1 to 12 do
if y[i] mod 2=0 then
begin
s:=s+y[i];
k:=k+1;
end;
s:=s/k;
write (s:5:1);
end.
Ответ:0.1011*10*(-100)=101,1
Объяснение:
1)0,1011*10=1,011
2)1,011*(-100)=101,1
* это умножение
var x, S: longint; t:text;
begin
assign(t,'input.txt');
reset(t);
S:=0;
while not Eof(t) do
begin
read(t,x);
S:=S+x;
end;
close(t);
assign (t,'output.txt');
rewrite(t);
write(t,'Вот сумма числел из файла input.txt: ', S);
close(t);
End.