Текстовый ------------- .doc
Графический ----------. jpg
Музыкальный -------- . mp3
(ВНИМАНИЕ: возможны варианты Музыкальный ------- avi )
Ответ:
var i : integer;
begin
for i:= 11 downto 4 do begin
writeln (i*i*i);
end;
readln;
end.
Объяснение: с downto
Rgb - red green blue
значение каждого параметра от 0 до 255 так что 512 вовсе не подходит
для якро красного подойдет только 0
ответ 0
1. Программа Paint,ещё Photoshop.
2. Microsoft Word,
Блокнот
Procedure TForm1.Button1Click(Sender: TObject);
var
i,j,s : integer;
k : integer;
Chislo : Integer;
ChisloTmp : Integer;
begin
k:=0;
for i := 100 to 999 do
begin
s:=0;
Chislo := i;
for j := 1 to 3 do
begin
ChisloTmp := Trunc(Chislo/10);
s := s + (Chislo - ChisloTmp*10);
Chislo := ChisloTmp;
end;
if ((s and 1) = 0) then
Inc(k);
end;
Label1.Caption := 'Таких чисел будет ' + inttostr(k);
end;
ОТВЕТ:<span>Таких чисел будет 450 </span>