если по обем чашечкам разложить сначала по одной детали так, чтобы они уравновесились .предположим, что деталь весит больше чем три остальные. на чашечки положить еще по одной детали, и одна чашечка перевесит другую.та верхняя деталь, что была на чашечке которую перевесили и есть необходимая. если же деталь весит больше чем все остальные, то все сделать наоборот.
Ответ дал: Гость
думаю, что 19,5 кб = 0,019 мб.
Ответ дал: Гость
1
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
if n mod 2 = 0 then write('четное') else write ('нечетное');
realdn
end.
2
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
e : = n mod 10
if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');
Популярные вопросы