var
n, d, min: integer;
begin
read(n);
n := abs(n); // Если введено отрицательное
min := 10;
while n > 0 do
begin
d := n mod 10;
n := n div 10;
if d < min then
min := d;
end;
write(min);
end.
<em>// PascalABC.NET 3.2, сборка 1456 от 26.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var s:=Range(10,99).Where(x->(Power(x div 10,3)+Power(x mod 10,3)=n));
if s.Count>0 then s.Println
else Writeln('Нет таких чисел')
end.
<u>Пример</u>
n= 9
12 21
Генератор тактовых импульсов (генератор тактовой частоты) предназначен для синхронизации различных процессов в цифровых устройствах — ЭВМ, электронных часах, таймерах и других.
Ответ: Тактовый генератор
Найди лишнее десятичное чило и зачеркни.23,53,73,37,83.17,20,21,37,9940,44,48,88,42
Kulebakin
1 лишнее число-37 2 лишнее число-99 3 лишнее число-88