✎ Задать свой вопрос   *более 30 000 пользователей получили ответ на «Решим всё»

Задача 1226 Составить программу, которая

УСЛОВИЕ:

Составить программу, которая подсчитывает общее количество целых четырёхзначных чисел, которые удовлетворяют условиям:
a) abcd – четырехзначное число;
b) a, b, c, d - разные цифры;
c) ad - cd = a + b + c + d;
В ответе укажите только число.

Ответ: ____________

Добавил Гость, просмотры: ☺ 1603 ⌚ 19.05.2014. информатика 10-11 класс

Решения пользователей

РЕШЕНИЕ ОТ slava191

var i,k,a,b,c,d:integer;
begin

k:=0;
for i:=1000 to 9999 do begin
a:=i div 1000;
b:=(i div 100) mod 10;
c:=(i div 10) mod 10;
d:=i mod 10;
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then begin
if a*d-c*d=a+b+c+d then inc(k);
end;
end;
writeln(k);

end.

Ответ: 58

Вопрос к решению?
Нашли ошибку?

РЕШЕНИЕ ОТ Гость

Программа на Visual Basic
Sub Programma
Dim i As Integer, a As Integer, b As Integer, c As Integer, d As Integer, n As Integer
n = 0
For i= 1000 To 9999
a = Int (i / 1000) ' цифра тысяч
b = Int ((i - a*1000) / 100) ' цифра сотен
c = Int (i / 10) - 10*b - 100*a ' цифра десятков
d = i Mod 10 ' цифра единиц
' Как я понял, в условии с) числа ad и cd - это не произведения, а двузначные.
If (10*a + d - 10*c - d = a + b + c + d) Then
If (a <> b) And (a <> c) And (a <> d) And (b <> c) And (b <> d) And (c <> d) Then
n = n + 1
End If
End If
Next i
MsgBox (n)
End

Вопрос к решению?
Нашли ошибку?
Хочешь предложить свое решение? Войди и сделай это!

Написать комментарий

Последние решения
sgrt(8-7x)=-x
Решение:
ОДЗ: -x ≥ 0, x ∈ (- ∞ ;0 )
sgrt(8-7x)+ x=0. Воспользуемся тем , что сумма двух убывающих
функций есть функция убывающая на их общей области определения. поэтому данное уравнение не может иметь более одного корня.
Поэтому подбором находим корень уравнения x=-8
Проверка : sgrt(8+ 56)=8-верно.
Ответ:-8.
✎ к задаче 37959
x²–4xy+4y²–4x+8y+7=(x²–4xy+4y²)-(4х-8у)+7=
=(x-2y)²-4(x-2y)+7=4²-4*4+7=16-16+7=7
✎ к задаче 44413
AP ⊥ пл β
ВТ ⊥ пл β

AP||BT

AK ⊥ [i]l[/i]
BM ⊥ [i]l[/i]

Δ АРК ∼ ΔВТМ ( по двум углам)
∠ АКР= ∠ВМТ
∠ АРК= ∠ ВТМ=90 °

Из подобия треугольников

8:14=x:42

x=24
(прикреплено изображение)
✎ к задаче 44411
BC ⊥ AC ⇒ DC ⊥ AC по теореме о 3-х перпендикулярах

∠ BCD - линейный угол двугранного угла

cos ∠ BCD=BC/DC=6/12=1/2

∠ BCD=60 °
✎ к задаче 44410
Пусть было х

Первый взял (1/13)*x осталось (12/13)*x

Второй взял (1/17) от (12/13)*x

(1/17) *(12/13)*x

Осталось:

(12/13)*x - (1/17) *(12/13)*x= (12/13)*(1-(1/17))*x=(12/13)*(16/17)*x

Это равно 150

(12/13)*(16/17)*x=150

(192/221)x=150

x=150:(192/221)

x=150*(221/192)

x=5525/32
✎ к задаче 44409