Вопрос Помогите с паскалем

[клон]

Не пойму как сделать код. На интервале от 1 до 300 посчитать количество всех чисел, делящихся на 16 без остатка.

 

[Гамзат]

Result := 300 div 16;

 

[Minddistortion]

Чо тут не понимать: перебираем числа через цикл for проверяем делится ли на 16 через mod и if Если делится увеличиваем счетчик через inc

 

[choys]

k:=0; for i:=16 to 300 do if i mod 16 = 0 then k:=k+1; writeln(k);

 

[slepoy]

Цикл, который перебирает числа от 1 до 300, делит на 16 и увеличивает счётчик, если число делится на 16.

 

[aqaqaq]

var i, k : Integer; begin k := 0; for i := 1 to 300 do if(i mod 16 = 0) then k := k+1; writeln(k);

 

[Whispering]

Не пойму как сделать код. На интервале от 1 до 300 посчитать количество всех чисел, делящихся на 16 без остатка.

var n:=0;i,x: integer;
begin
writeln('Введите 1...x диапазон');
readln(x);
for i:=1 to x do 
if i mod 16 = 0 
then n:=n+1; 
writeln('Количество чисел кратных 16 на промежутке 1...',x,' равно ',n);
end.