Uses crt;
var a,sum:integer;
begin
sum:=0;
repeat
read(a);
if (a mod 6=0) or (a mod 11=0) then sum:=sum+a;
until a=0;
writeln(sum);
<span>end.</span>
А если у музыканта не ту музыкального инструмента ,то он закачевает на компьютер а который нужен инструмент!!!!¡!
понял дружок,пирожок?
N = 2^i, где
N - количество цветов.
I - количество бит.
V = K * I, где
V - объем.
K - размер изображения.
N = 2^i.
65536 = 2^i.
I = 16 бит.
V = K * I.
V = (256 * 256 * 16) / 2^13 = (2^8 * 2^8 * 2^4) / 2^13 = 2^20/2^13 = 2^7 = 128 кбайт.
Ответ: 128 кбайт.
Var
a:array[1..12]of integer;
m, n:integer;
Begin
a[1]:=31;a[7]:=31;
a[2]:=28;a[8]:=31;
a[3]:=31;a[9]:=30;
a[4]:=30;a[10]:=31;
a[5]:=31;a[11]:=30;
a[6]:=30;a[12]:=31;
Write('Введите номер месяца -> ');
Readln(m);
Write('Год високосный(1 - да || 0 - нет)?');
Readln(n);
if (m = 2) then Writeln(a[m] + n) else
Writeln(a[m]);
end.
Var i,s,n: Integer;
begin
readln(n);
for i := 1 to n do begin
s := s + i;
end;
writeln(s);
end.