Сделал расчёт и суммы цифр в обоих числах, и сумму цифр первого плюс второе число. Ненужное удалите уж.
Подсчёт суммы цифр сделал независимым от длины числа (хоть сколькозначные вводите, вплоть до максимального целого в Кумире).
алг
нач
цел а,б,н,ас=0,бс=0
лит ат,бт
вывод 'введите целое трёхзначное число: '
ввод а
вывод 'введите целое четырёхзначное число: '
ввод б
ат := цел_в_лит(а)
нц для н от 1 до длин(ат)
ас := ас + Цел(ат[н],0)
кц
вывод 'сумма цифр трёхзначного= ', ас, нс
бт := цел_в_лит(б)
нц для н от 1 до длин(бт)
бс := бс + Цел(бт[н],0)
кц
вывод 'сумма цифр четырёхзначного= ', бс, нс
вывод 'сумма цифр трёхзначного плюс четырёхзначное число= ', ас+б
кон
В 1 символе (букве) - 1 байт.
В слове <span>«информатика» - 11 символов, следовательно 11 байт.
Ответ: 11</span>
program TabulW;
var
a, b, c, x, dx, w: real;
begin
a := 2.8;
b := -0.3;
c := 4.0;
x := 1.0;
dx := 0.05;
Writeln(' a b c x w');
while x - 2 < 0.0001 do
begin
if x < 1.2 then
w := a * x * x + b * x + c
else if x > 1.2 then
w := (a + b * x) / sqrt(x * x + 1)
else
w := a / x + sqrt(x * x + 1);
Writeln(a:6:3, b:8:3, c:8:3, x:8:3, w:8:3);
x += dx
end;
Readln;
end.
1. словесное описание
2. описание алгоритмов при помощи математических формул
3. блок - схемы
4. псевдокод
5. комбинированный