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

Question

Лиана · Accepted Answer

Вместо 6 поставьте значение P 
 
var i,c:integer; 
begin 
c:=0; 
for i:=10 to 99 do 
if i mod 6 = 0 then c:=c+1; 
writeln(c); 
end.

Роман Евменов · Answer

задать цикл от 10 до 99 и проверять на остаток от деления, если он равен нулю, то число кратное, прибавлять его к общей сумме

Ирина Теплова · Answer

sum = 0; 
n = 10; 
for n < 100 do 
if (n mod p) > 0 
sum = sum + n 
end if 
n = n+1 
end 
print sum 
 
Язык никакой, ибо писать за кого-то не собирался) Но суть понятна, и оформить проблем не возникнет.

Собит · Answer

Какой язык? Нужно ли обрабатывать ситуации 
P<=0 
и 
P>100?