Вычислите в MS Excel произведение наибольшего и наименьшего число среди данных -90, -21, -8, 0, 9, 57, 79, 91, 125, 347, 682, 2
JayGrey [3]
Відповідь:
записать все числа в комииркы выбрать знак суммы выбрать нужною умову и вказать диапазон.
Пояснення:
Трехзначное число, записанное с помощью цифр a,b,c имеет величину
100a+10b+c.
Если зачеркнуть (отбросить) старшую цифру, то получится число 10b+c.
Умножая на 6, получаем 6(10b+c)=60b+6c.
И теперь можно составить уравнение
100a+10b+c=60b+6c
100a=50b+5c
100a=5(10b+c)
20a=10b+c
a=(10b+c)/20 (1)
Рассмотрим соотношения между целочисленными a,b,c
( a ∈ [1;9], b,c ∈ [0;9] ), которые удовлетворяют уравнению (1).
Поскольку 10b кратно 10, то сумма 10b+с может оканчиваться нулем только если с=0.
Тогда (1) принимает вид a=10b/20 или a=b/2
Тогда b - четное, т.е. принимает значения 2, 4, 6, 8.
Соответственно, a принимает значения 1, 2, 3, 4.
Теперь можно записать варианты чисел: 120, 240, 360, 480.
Program yeah;
var
a,b,c,d,n:integer;
begin
writeln('введите число.(0-юноша,1-девушка).');
readln(n);
if n=0 then begin
writeln('введите вес');
readln(a);
writeln('введите рост');
readln(b);
if b=110 then begin
if a<=b then writeln('юноша принят.');
end;
if a>b then writeln('не подходит по весу.');
if b<>110 then writeln('не подходит по росту.');
end;
if n=1 then begin
writeln('введите вес');
readln(a);
writeln('введите рост');
readln(b);
if b=115 then begin
if a<=b then writeln('девушка принята.');
end;
if a>b then writeln('не подходит по весу.');
if b<>115 then writeln('не подходит по росту.');
end;
end.
Начало и конец программы в овале, действия в квадратах. Программа совершается последовательно
