Var - список переменных переменные а,с присваивают тип integer, т.е. целые числа; b присваивает тип string, т.е строковый тип begin - начало программы readln - оператор ввода, окончание ln осуществляет переход на новую строку str(a,b) - т.е. преобразовать данные числа в строку переменная b так же присваивает тип строковый Val(b,a,c) где: b- строка, а-результат, с-позиция с которой произошла ошибка преобразования или 0 writeln(а) - оператор вывода, окончание ln осуществляет переход на новую строку end. - конец программы
function summdel(x:integer):integer; //результат - сумма делителей х var k,sum:integer; begin sum:=0; for k := 1 to x div 2 + 1 do if x mod k = 0 then sum:= sum+k; summdel:=sum; end;
begin writeln('Введите границы a,b '); readln(a,b); maxsumm := 1; max := 1; for i := a to b do begin if summdel(i) > maxsumm then begin maxsumm:= summdel(i); max := i; end; end; writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max) end.
переменные а,с присваивают тип integer, т.е. целые числа; b присваивает тип string, т.е строковый тип
begin - начало программы
readln - оператор ввода, окончание ln осуществляет переход на новую строку
str(a,b) - т.е. преобразовать данные числа в строку
переменная b так же присваивает тип строковый
Val(b,a,c) где: b- строка, а-результат, с-позиция с которой произошла ошибка преобразования или 0
writeln(а) - оператор вывода, окончание ln осуществляет переход на новую строку
end. - конец программы