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

Question

Информатика

Арся

14 марта, 09:01

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

+5

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