Var n,sum:integer; begin Readln(n); while n > 0 do begin if n mod 10 > 5 then sum:= sum + n mod 10; n:= n div 10; end; writeln(sum); end.
Пример: 135483 8
sadkofamily61
02.02.2023
До семи лет мальчик обычно оставался на попечении женщин, потом начиналось суровое военное воспитание. По целым дням он пропадал в лесах, окружавших отцовский замок, учился сражаться на мечах, копьях, биться на палках, стрелять, ездить на коне, плавать, переносить походные тяготы.Учили его и охотничьим навыкам — обращаться с соколом, носить его на руке, напускать на птицу, охотиться с собаками. Охота была любимым развлечением рыцарства в свободное время.Однако о развитии ума, обучении каким-либо наукам заботились мало. Редко кто из рыцарей, чего греха таить, умел читать и писать. Грамота считалась, скорее, «женским делом» — девочка училась ей у домашнего священника и потом с удовольствием читала молитвенник или героические .Мальчику оставалось лишь слушать песни бродячих жонглеров, забредших в отцовский замок, восхищаться подвигами их героев и давать себе обещания подражать им в течение всей жизни.С ранних лет будущий рыцарь укреплялся в беззаветной вере своих отцов в учение Христа, в христианских заповедях. Но и христианство воспринималось упрощенно, лишь в соответствии с рыцарским духом, поскольку оно как бы оправдывало воинские устремления.
itartdesignprof
02.02.2023
До семи лет мальчик обычно оставался на попечении женщин, потом начиналось суровое военное воспитание. По целым дням он пропадал в лесах, окружавших отцовский замок, учился сражаться на мечах, копьях, биться на палках, стрелять, ездить на коне, плавать, переносить походные тяготы.Учили его и охотничьим навыкам — обращаться с соколом, носить его на руке, напускать на птицу, охотиться с собаками. Охота была любимым развлечением рыцарства в свободное время.Однако о развитии ума, обучении каким-либо наукам заботились мало. Редко кто из рыцарей, чего греха таить, умел читать и писать. Грамота считалась, скорее, «женским делом» — девочка училась ей у домашнего священника и потом с удовольствием читала молитвенник или героические .Мальчику оставалось лишь слушать песни бродячих жонглеров, забредших в отцовский замок, восхищаться подвигами их героев и давать себе обещания подражать им в течение всей жизни.С ранних лет будущий рыцарь укреплялся в беззаветной вере своих отцов в учение Христа, в христианских заповедях. Но и христианство воспринималось упрощенно, лишь в соответствии с рыцарским духом, поскольку оно как бы оправдывало воинские устремления.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Найти сумму значащих цифр, превышающих 5.паскаль с оператором while
n,sum:integer;
begin
Readln(n);
while n > 0 do
begin
if n mod 10 > 5 then
sum:= sum + n mod 10;
n:= n div 10;
end;
writeln(sum);
end.
Пример:
135483
8