Var
n: integer;
begin
readln(n);
writeln(n div 100 + (n div 10) mod 10 + n mod 10);
end.
Роздільна здатність,хоча невпевнена
Этот текст не играет никакой роли в ответе, программа приложена в файле
Var
a, b, c: real;
begin
writeln('Введите два катета A,B и гипотенузу С треугольника');
readln(a, b, c);
if (c >= a + b) or (a + b + c = 0) then writeln('Такого треугольника не существует')
else begin
if sqr(c) = sqr(a) + sqr(b) then writeln('Прямоугольный');
if sqr(c) > sqr(a) + sqr(b) then writeln('Тупоугольный');
if sqr(c) < sqr(a) + sqr(b) then writeln('Остроугольный');
end;
end.
Var a,b:0..1;
begin
writeln(' A B not A A and B A or B A xor B');
for a:=0 to 1 do
for b:=0 to 1 do
writeln((a=1):6,(b=1):6,(not(a=1)):7,(a=1)and(b=1):8,(a=1)or(b=1):8,(a=1)xor(b=1):8);
end.
Результат:
A B not A A and B A or B A xor B
False False True False False False
False True True False True True
True False False False True True
True True False True True False