Как записать сумму всех трёхзначных чисел, делённых на 8,9?

Question

[Александр Тимков]

Учу Pascal. Не могу понять
Задача звучит так:
Напишите программу, которая среди всех 3-значных чисел которые делятся на 8 и на 9. Программа должна вывести на экран числа удоволтворящуе условию и их сумму.

Answer 1

[Александр]

for i:= 100 to 999 do
begin
    if (i mod 8 = 0) or (i mod 9 = 0) then
    begin
        // Тут выводим, суммируем и т.д.
    end;
end;

Comments

[Александр Тимков]

А можете с выводом сделать. Чёт не получается.

[Александр]

@Tumkas
Что-то плохо вы учитесь, раз азов не знаете. Я уже плохо помню паскаль, но как-то так должно работать:

WriteLn('The number ', i, ' is dividing by 8 or 9');

Если нужно конкретно выводить какое число на что делится, тогда if необходимо разбить на два: для 8 и 9 отдельно.

[Александр]

Тут конечно не то условие что указанно в задаче, но вот код, тестить можно тут rextester.com/l/pascal_online_compiler

program Test;
var i,s : Int32;
begin
    s:=0;
    for i:= 100 to 999 do
    begin
        if (i mod 8 = 0) or (i mod 9 = 0) then
        begin
            writeln(i);
            s:=s+i;
        end;
    end;
    write('Summ: ');
    writeln(s);
end.

Answer 2

[Александр]

нужно в цикле вычислять само число и сумму всех чисел до тех пор пока число будет меньше 1000
число=i*8*9 где i увеличивается на 1 с каждым повтором цикла.

Comments

[Александр]

program Test;
var i,c,s : Integer;
begin
    i:=2;
    s:=0;
    c:=i*8*9;
    while c<1000 do
        begin
            writeln(c);
            inc(i);
            s:=s+c;
            c:=i*8*9;
        end;
    write('Summ: ');
    writeln(s);
end.

[Александр]

program Test;
var i,s : Int32;
begin
    s:=0;
    for i:= 100 to 999 do
    begin
        if (i mod 8 = 0) and (i mod 9 = 0) then
        begin
            writeln(i);
            s:=s+i;
        end;
    end;
    write('Summ: ');
    writeln(s);
end.