Сделал расчёт и суммы цифр в обоих числах, и сумму цифр первого плюс второе число. Ненужное удалите уж.
Подсчёт суммы цифр сделал независимым от длины числа (хоть сколькозначные вводите, вплоть до максимального целого в Кумире).
алг
нач
цел а,б,н,ас=0,бс=0
лит ат,бт
вывод 'введите целое трёхзначное число: '
ввод а
вывод 'введите целое четырёхзначное число: '
ввод б
ат := цел_в_лит(а)
нц для н от 1 до длин(ат)
ас := ас + Цел(ат[н],0)
кц
вывод 'сумма цифр трёхзначного= ', ас, нс
бт := цел_в_лит(б)
нц для н от 1 до длин(бт)
бс := бс + Цел(бт[н],0)
кц
вывод 'сумма цифр четырёхзначного= ', бс, нс
вывод 'сумма цифр трёхзначного плюс четырёхзначное число= ', ас+б
кон
Извини, в C++ трудно реализовать рандомные числа, поэтому ограничился лишь вводом чисел пользователем. Но если нужен именно рандом, напиши, я доделаю.
1 Function F(n:integer):real;
2 Var k:byte;
3 sr:real;
4 Begin
5 k:=0;sr:=0;
6 While n>0 do
7 Begin
8 sr:=sr+n mod 10;
9 n:=n div 10;
10 inc(k);
11 End;
12 F:=sr/k;
12 End;
Объяснение: