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>

0 0

4 года назад

На рисунке изображена схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И, К. По каждой дороге можно двигаться только в од

Вера Блинова [39]

Объяснение:

АБЕЖ, АБВЖ, АБВЗЖ, АБЖ, АДИКЖ, АГЗИКЖ, АВЗИКЖ.

того 7

0 0

4 года назад

Прочитать ещё 2 ответа

Напишите программу вычисления произведений.(Turbo Pascal)(x-1)(x-2)(x-3)...(x-n);

archakov

var x,n:integer;

begin

readln(n);

readln(x);

for i=:1 to n do

x:= (x-i);

end.

Если решение задачи будет не верно, извените значит надо писать более подробно.

0 0

4 года назад

Греются на солнышке воробьи. На нижней ветке их было 110, на верхней – на 10 меньше. Сколько всего было воробьев?В двоичной сист

m1f

110₂-10₂=100₂ на верхней ветке
100₂+110₂=1010₂=10₁₀

0 0

4 года назад