С клавиатуры вводят строку, состоящую из цифр. Написать программу, которая вычисляет сумму этих цифр.Для паскаль abc.
С клавиатуры вводят строку, состоящую из цифр. Написать программу, которая вычисляет сумму этих цифр.Для паскаль abc.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SumOfDigits;
var
str: string;
i, sum: integer;
begin
sum := 0;
// Ввод строки с клавиатуры
writeln('Введите строку из цифр: ');
readln(str);
// Вычисление суммы цифр
for i := 1 to Length(str) do
begin
sum := sum + StrToInt(str[i]);
end;
// Вывод результата
writeln('Сумма цифр: ', sum);
end.
begin
// вызов процедуры
SumOfDigits;
end.