Определите количествр натуральных чисел их итервала от 10до 60,кратных5.(паскаль,циклы)

Ответы:

var

i,k:integer,

begin

k:=0,

for i:=10 to 60 do

if (i mod 5) = 0 then

inc(k),

writeln(Количество натуральных чисел кратных 5 равно ,k),

readln,

end.