Напишите программу, которая вычисляет сумму цифор только трехзначных чисел

Var a,b,c,d:integer;
begin
writeln('Введите число:');
readln(a);
if (a div 1000=0) and (a div 100gt;0) then begin
b:=a div 100;
c:=a div 10 - (a div 100) * 10;
d:=a - (a div 10)*10;writeln(b+c+d);
end
else writeln('Вы ввели не трехзначное число.');
end.

Денис 2019-07-27 02:04:46

Можно поменять в условии эти 4 оператора на:b:=a div 100;c:=a div 10 - (a div 100) * 10;d:=a - (a div 10)*10;writeln(b+c+d);на вот этот:writeln(a div 100+a div 10 - (a div 100) * 10+a - (a div 10)*10;writeln(b+c+d))

Arina Belobrzhek 2019-07-27 02:09:32

*writeln(a div 100+a div 10 - (a div 100) * 10+a - (a div 10)*10; И тогда можно вырезать из var: b,c,d

Юмашева Ольга 2019-07-27 02:19:01

Получится:var a:integer;beginwriteln('Введите число:');readln(a);if (a div 1000=0) and (a div 100>0) then beginwriteln(a div 100+a div 10 - (a div 100) * 10+a - (a div 10)*10); endelse writeln('Вы ввели не трехзначное число.');end.

О проекте

Напишите программу, которая вычисляет сумму цифор только трехзначных чисел

Добро пожаловать!