program sum;
var
a,b,c,s: integer;
begin
writeln('введите числа а,в,с');
readln(a,b,c);
s: =a+b+c;
writeln('сумма чисел равна',s);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу которая найдет сумму цифр введенного с клавиатуры трехзначного натурального числа n
program sum;
var
a,s: integer;
begin
writeln('введите трехзначное число а');
readln(a);
while (a div 10> 0)
begin
s: =s+ (a mod 10 );
a: =a div 10;
end
s: =s+a;
writeln('сумма чисел равна',s);
end.