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

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

Условие

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

Ответ: ____________

информатика 10-11 класс 1785

Все решения

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

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

Меню

Присоединяйся в ВК