Найти количество целых чисел из промежутка от 5 до 40, у которых сумма делителей больше 15

@Panzerbjorn · Регистрация: 19.12.2013

Найти количество целых чисел из промежутка от 5 до 40, у которых сумма делителей больше 15 (паскаль)

@devlor13 · 19.12.2013, 20:05

Pascal

uses crt;
const n=5; m=40; k=15;
var i, j, kilk : byte;
    s : word;
begin
    kilk:=0;
    for i:=n to m do begin
    s:=0;
    for j:=1 to (i div 2 - i mod 2) do begin
    if j=1 then s:=i;
    if i mod j=0 then s:=s+j;
    end;
    if s>k then inc(kilk);
    end;
    writeln(kilk);
end.

@Panzerbjorn 0 / 0 / 0 Регистрация: 19.12.2013 Сообщений: 4
		1
	Найти количество целых чисел из промежутка от 5 до 40, у которых сумма делителей больше 15 19.12.2013, 19:20. Показов 1534. Ответов 1 Метки нет (Все метки) Найти количество целых чисел из промежутка от 5 до 40, у которых сумма делителей больше 15 (паскаль) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти количество целых чисел из промежутка от 5 до 40, у которых сумма делителей больше 15

Решение