Найти сумму всех трехзначных чисел кратных к

var i,k,s: real;

begin

write('vvedite k = ');

readln(k);

s=0

for i=100 to 999 do

begin

if i mod k = 0 then

s=s+i;

end;

write('s = ',s);

readln;

end.

i,k,s: integer;

read(k);

s=0

for i=100 to 999 do begin

if i mod k = 0 then

s=s+i;

end;

write(s);

end.

Компьютерная модель - компьютерная программа, работающая на отдельном компьютере, суперкомпьютере или множестве взаимодействующих компьютеров (вычислительных узлов), реализующая абстрактную, то есть информационную модель некоторой системы. Компьютерные модели стали обычным инструментом численно-математического моделирования и применяются в физике, астрофизике, механике, химии, биологии, экономике, социологии, метеорологии, других науках и прикладных задачах в различных областях радиоэлектроники, машиностроения, автомобилестроения и проч. Компьютерные модели используются для получения новых знаний о моделируемом объекте или для приближенной оценки поведения систем, слишком сложных для логико-аналитического исследования.

бро, я в 5 классе... но раз ты так хочешь..

Теория

div - это целочисленное деление. Это значит что при деление на числа, остаток отбрасывается.

Пример (10 div 3):

1. Если мы просто разделим 10 на 3, то мы получим 3.3333. При деление целочисленным делением (div-ом), дробная часть отбрасывается. И ответ будет просто 3.

Вот еще примеры:

   2 div 2 = 1   | (2 / 2 = 0)

   2 div 3 = 0  | (2 / 3 = 0.66)

   5 div 3 = 1   | (5 / 3 = 2)

   13 div 6 = 2 | (13 / 6 = 2.16)

Решение

Изначально s = 0, а i = 3

Цикл repeat-until означает что цикл будет совершаться, пока условие в until не будет выполнено.

Мы попадаем в цикл. Сначала выполняется s + 5, что будет равно 5, а после выполняется div с i: 5 div 3. Мы получаем ответ 1 и это же значение заносится в переменную s. От переменной i отнимается 1 и оно становится 2.

После итерации цикла, происходит проверка условия until. Так как 2 не меньше 1, цикл вновь запускается

Вторая итерация. s уже равна 1, значит: 1 + 5 div 2 -> 6 div 2 -> 3. s = 3. От i опят отнимается единица.

Опять завершаем цикл и проверяем условие 1 не меньше 1 (они равны), значит будет еще одна итерация.

Третья итерация. s = 3, значит 3 + 5 div 1 -> 8 div 1 -> 8. В s заносится 8. От i отнимаем 1 и i = 0

Так как 0 < 1, условие выполняется и мы выходим из цикла. Программа завершена. В s находится цифра 8, в i лежит 0