Ответ:
Write() и Writeln() - вывод текста на экран
Read() и Readln() - запись текста с клавиатуры
Приписка ln обозначает, что нужно отступить строчку после команды
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>
Переведём оба числа в 10-чную систему счисления
1110₂=1*2³+1*2²+1*2¹+0*2°=8+4+2+0=14 девочек
18₁₆=1*16¹+8*16°=16+8=24 всего человек
24-14=10 мальчиков
Ответ: 10 мальчиков
Да, поместятся.
2 ГБ - 2000 мб.
151*3=453 мб.
Поместится :)