Задача 1: Дано натуральное трехзачное число Х. Определить, сумма его цифр больше 10 или нет.

Question

Информатика

Душа

28 августа, 03:35

Задача 1: Дано натуральное трехзачное число Х. Определить, сумма его цифр больше 10 или нет.

+2

Ответы (1)

Знаете ответ?

Силуян · Answer 1

Uses crt;

var a, b, c, input:integer;

begin

readln (input) ;

a : = input div 10;

a : = a div 10;

b : = input div 10;

b:=b mod 10;

c : = input mod 10;

if (a + b + c) > 10 then writeln ('Больше 10') else writeln ('Меньше 10') ;

end.