Var n,k,i:integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to n do
if (i mod 3=0)and(i mod 6<>0)
then k:=k+1;
writeln('k = ',k);
end.
Пример:
<span>n = 100
k = 17</span>
1. 5678
2. 75
3. Август, март
4. Май, сентябрь, декабрь
5. Забота, красота
6. 4342, 1234, 6432, 2345
Сори, что долго
var a:array [1..20] of integer;
i:integer;
p:real;
begin
p:=1;
for i:= 1 to 20 do
begin
a[i]:= Random(46)-20;
if i mod 2 = 0 then p:=p*a[i]
end;
writeln('Массив: ',a);
writeln('Произведение элементов с чётными номерами равно: ',p);
end.
240 Кбайт = 240*1024 байт = 240*1024*8 бит
Количество пикселей в изображении = 600*400
Память для одного пикселя = 240*1024*8 / (600*400) бит ≈ 8 бит
Количество цветов в палитре N=2^i = 2^8 = 256