Помогите как составить эту программу вычисления чисел кратных не только 2 но и 3. var...

Question

Помогите как составить эту программу вычисления чисел кратных не только 2 но и 3.
var x,y: integer ;
begin
y:=0;
For x:= 10 to 99 do
if x mod 2=0 then
y:=y+1;
writeln ('количество чисел, кратных 2, равно ', y);

end.

Comments

это Pascal ABC и я когда я писал программу с двумя значениями то у меня выдовало ошибку.Поэтому я решил для показания только одно значение.

---

это переменные которые служат для определённых значений в данном случае x -сами числа y-число повторений

---

да

---

нет прохотим циклы и for

Answer 1

Program aliona;
var
n,k,i:integer;
begin
writeln('n=');
readln(n); 
  k:=0;
for i:=1 to n do
if (i mod 2=0)and (i mod 3=0)
then
inc(k);
writeln('k=',k);
readln;
end.

Comments

Нет, ведь ведь задача просит 2ответа

---

Ответь пожайлуста ..... Я не знаю ка написать правильно...

---

Тоесть она выводит обший результат?

---

тогда довайте я задам вопрос на 18б снова авы просто дополните ответ к задаче с разными значениями?

---

не надо я решил:Var x:integer;
begin

x:=100;
for x:=99 to 1000 do
if (((x mod 10)=( x div 100))=((( x mod 100)*10)=(x div 10)))
then writeln('neverno:',x)
else writeln(' palindromov :',x);
end.