Первая гиря - 1 кг, это достаточно очевидно.
Вторая гиря - 3 кг, с её помощью можно получить следующие веса:
2 кг = 3 кг - 1 кг (на одну чашу ставим 3 кг, на вторую 1 кг плюс товар)
3 кг = 3 кг
4 кг = 3 кг + 1 кг
Дальше нам нужно 9 кг:
5 кг = 9 кг - 3 кг - 1 кг
6 кг = 9 кг - 3 кг
7 кг = 9 кг + 1 кг - 3 кг
... ... ...
13 кг = 9 кг + 3 кг + 1 кг
Последняя гиря - это 27 кг (чтобы в сумме получалось 40 кг).
Ответ: 1, 3, 9, 27.
Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
Книга, т. к. это носитель информации
program lol;
var
a10:array[1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a10[i]:=random(50)-39;
writeln('Element #',i,': ',a10[i]);
end;
writeln;
for i:=1 to 20 do
begin
if a10[i] > 0 then a10[i]:=a10[i]*2;
if a10[i] < 0 then a10[i]:=0;
writeln('Element #',i,': ',a10[i]);
end;
readln;
end.