Регистрация
Grooshka
20.01.2023 08:00
Информатика
Есть ответ 👍

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

Выходные данные
Программа должна вывести сумму цифр введённого числа.

225
500
Посмотреть ответы 1

Ответы на вопрос:

din46
din46
4,6(57 оценок)
Var       s, res: string;       k, i, j: integer;       c: char; begin       read(s);       s : = s + chr(10);       for i : = 1 to length(s) do               if s[i] = c then                       k : = k + 1               else begin                       if k < = 2 then                               for j : = 1 to k do                                       res : = res + c                       else                               res : = res + '^' + inttostr(k) + c;                                             c : = s[i];                       k : = 1;               end;       writeln(res); end.

Популярно: Информатика