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

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

УСЛОВИЕ:

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

Ответ: ____________

Добавил Гость, просмотры: ☺ 1628 ⌚ 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

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

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

Последние решения
а)
[red]cosx ≠ 0[/red]

сos^2x-7cosx+6=0

D=(-7)^2-4*6=25

cosx=1 или cosx=6

сosx=1

x=2πk, k ∈ Z

cosx=6 - уравнение не имеет корней в силу ограниченности косинуса.

О т в е т. a) 2πk, k ∈ Z

б)
Отрезку [–3π; –π] принадлежит корень
x=2π

О т в е т. б) 2π
✎ к задаче 45520
(прикреплено изображение)
✎ к задаче 45504
15
Zn +2 KOH +2 H2O= K2[Zn(OH)4] +3H2
K2[Zn(OH)4] + 2H2S = K2S + ZnS +4 H2O
✎ к задаче 45454
25
Система сопряжённых связей представляет собой взаимодействие кратных связей между собой, как при чередовании одинарных и двойных связей в бензольном кольце или в алкадиенах.
✎ к задаче 45455
Перманганат калия легко окисляет соединения с кратными связями. Мягкое окисление.
CH3-CH=CH-CH3 + KMnO4 + H2O = бутандиол-2,3 + MnO2 + KOH
Бутин-1 => [ HC(OH) =C(OH)-CH2-CH3] => H2C(OH)-C(O) -C2H5 => HOOC-C(O)-C2H5
Ответ - 23
✎ к задаче 45456