Предмет: Информатика,
автор: Eskazvers
Задача 1: Дано натуральное трехзачное число Х. Определить, сумма его цифр больше 10 или нет.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Английский язык,
автор: davidmarabian
Предмет: Физика,
автор: romanovan2007
Предмет: Математика,
автор: yuluyakostyuk84
Предмет: Математика,
автор: sve55591149