Программа слаживает все цифры натурального числа, введённого пользователем, и выполняет из них сумму:
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.
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.