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.

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.

Answer 2

ну да вы же сказали количество чисел кратных двум и трём.......не отдельно кратных 2 ...и кратных 3

Answer 3

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

Answer 4

так вы условие правильно напишите....вам надо что бы считало отдельно количество кратных двум и количество кратных 3 тоже отдельно так..?

Answer 5

я могу написать прогу и на такое условие

Answer 6

не надо я решил: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.