Var n,s: longint; begin write('введите натуральное четырехзначное число: '); readln(n); s: =n mod 10; n: =n div 10; s: =s+n mod 10; n: =n div 10; s: =s+n mod 10; n: =n div 10; s: =s+n; writeln('сумма цифр введенного числа равна ',s) end. тестовое решение: введите натуральное четырехзначное число: 1745 сумма цифр введенного числа равна 17
Спасибо
Ответ дал: Гость
нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу
program prim;
var i,sum,n,x : integer;
begin
write('n = ');
readln(n);
x: =2;
sum: =2;
i: =1;
while sum< =n do
begin
x: =x+2;
i: =i+1;
sum: =sum+x;
end;
writeln(i,'слагаемых');
end.
Ответ дал: Гость
сред. арифметическое = сумма всех чисел разделить на количество
(a1 + a2 + a3 + a4 + a5) / 5
Другие вопросы по: Информатика
Похожие вопросы
Знаешь правильный ответ?
Найти сумму чисел 4-х значного числа используя линейный алгоритм...
Популярные вопросы