С клавиатуры вводится четырехзначное число найдите сумму цифр в этом числе кратных трем

Question

Информатика

Женюра

30 июня, 16:16

С клавиатуры вводится четырехзначное число найдите сумму цифр в этом числе кратных трем

+4

Ответы (1)

Знаете ответ на вопрос?

Рюрик · Answer 1

Program z1; var N, A, B, C, D:integer; beginreadln (N) ; A:=N div 1000; B: = (N div 100) - (N div 1000) * 10; C: = (N div 10) - (N div 100) * 10; D: = (N mod 10) ; n:=0; if (A mod 3) = 0 then N:=N+A; if (B mod 3) = 0 then N:=N+B; if (C mod 3) = 0 then N:=N+C; if (D mod 3) = 0 then N:=N+D; writeln (N) ; end.