Дано натуральное число.определить сумму его цифр, больших 5
Программа слаживает все цифры натурального числа, введённого пользователем, и выполняет из них сумму:
var r: real; s: string; q: integer; sum: real; i: integer;
begin Write( Введите натуральное число: ); Readln(r); s := FloatToStr(r); q := length(s); for i := 1 to q do begin r := StrToFloat(s[i]); if r > 5 then sum := sum + r; end; writeln( Сумма всех чисел, превышающих 5 = , sum, .); end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
