// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
function SodGood(n:integer):boolean;
// Попадает ли сумма цифр числа n в диапазон [20;30]?
begin
var s:=0;
while n>0 do begin
 s+=(n mod 10);
 n:=n div 10
 end;
Result:=(s>=20) and (s<=30)
end;

begin
Print(Range(10000,99999).Where(n->SodGood(n)).Average)
end.

Результат:
57982.8943738243

0 0

1 год назад

Прочитать ещё 2 ответа

Срочно!!! Построить таблицу истиности

ilik32 [51]

Ответ:

a) 1 1 0 1 = 1

b) 1 1 0 1 = 1

c) 0 0 0 1 = 1

d) 0 0 0 1 = 1

Объяснение:

Напиши,если нужно объяснение)

0 0

4 года назад

В уравнении XX+X=ABC разные цифры заменены разными буквами.Чему равно значение выражения: 4X+3B+2A+C?Помогите пожалуйста нужно у

Kiato [106]

Так как в результате первого сложения должно получиться трехзначное число, то нетрудно предположить, что три одинаковые цифры - три девятки.
99+9=108
Соответственно:
X=9
B=0
A=1
C=8
Подставляем во второе выражение и решаем:
4*9+3*0+2*1+8=36+2+8=46
Ответ: 46

0 0

4 года назад

Сообщение написано буквами 64 стмвололного алфавита содержит 20 символов

STANISLAV NEKIPELOV [7]

2^6=64. Один символ несет 6 бит информации. 20*6 = 120 бит = 15 байт

0 0

4 года назад