7)Камера делает фотоснимки размером 1024x768 пикселей. На хранение одного кадра отводится 900 Кбайт. - id2006428920220805 от slojnaa 05.08.2022 10:41

Question

Информатика: 7)Камера делает фотоснимки размером 1024x768 пикселей. На хранение одного кадра отводится 900 Кбайт. Найдите максимально возможное количество цветов в палитре изображения. 8)Маша составляет 5-буквенные коды из букв В, С, А, Л, Ь. Каждую букву нужно использовать ровно 1 раз, при этом код буква ь не может стоять на первом месте и перед гласной. Сколько различных кодов может составить Маша?

slojnaa · Accepted Answer

1)var a,b,i:integer;
begin
readln(a,b);
for i:= 1 to 100 do
if (i mod a<>0) and (i mod b<>0) then write(i,' ')
end.
2)var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:= a to b do
if (i mod 7=0) xor (i mod 9=0) then k:=k+1;
write(k)
end.

3)var pol,i,otr,a:integer;
begin
otr:=0;
pol:=0;
for i:= 1 to 10 do
begin
readln(a);
if a>0 then pol:=pol+1;
if a<0 then otr:=otr+1
end;
if pol>otr then write('Положительных больше');
if otr>pol then write('Отрицательных больше')
end.
4) var i,a,b:integer;
begin
readln(a,b);
for i:= a to b do
if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ')
end.

MOGZ ответил