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

Question

Информатика

Торя

13 февраля, 06:32

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

+1

Ответы (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.