var
s, r, l: real;
begin
read(r);
s := pi * r * r;
l := 2 * pi * r;
write(s:0:3, #10, l:0:3);
end.
2 числа записывают в порядке неубывания, то есть в порядке возрастания, или 2 числа равны. Числа:2512, 2518, 2524 не подходят уже по этому критерию. Max сумма трех десятичных цифр = 27(9+9+9). Число 2828 не подходит. Остались числа: 2425, 1225, 1825, 123. Рассмотрим последнее число 123. Сумма первых 3 его цифр равна 1, т.е первые три цифры 100, третья цифра 0 должна в сумме с двумя другими цифрами дать 23, но сумма 2 цифр меньше или равна 18, поэтому такого числа нет.
Остались 2425 1225 1825
Ответ:3
Var
n,e,d,s,sum: integer;
begin
writeln ('vvedi cislo n');
read (n);
if (n<100) or (n>999) then writeln ('False');
if (n>100) and (n<999) then
begin
e:= (n mod 10);
writeln ('e',e);
s:=(n div 100);
writeln ('s',s);
d:=(n div 10)-s*10;
writeln ('d',d);
sum:=s+d+e;
writeln ('sum',sum);
if sum=13 then writeln ('Enter')
else
writeln ('Lock');
end;
end.
Вычислите в MS Excel произведение наибольшего и наименьшего число среди данных -90, -21, -8, 0, 9, 57, 79, 91, 125, 347, 682, 2
JayGrey [3]
Відповідь:
записать все числа в комииркы выбрать знак суммы выбрать нужною умову и вказать диапазон.
Пояснення: