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

Для составления программы, которая будет вычислять количество чисел, кратных не только 2, но и 3, нам понадобится внести изменения в ваш имеющийся код. Давайте внесем соответствующие изменения.

var
  x, y2, y3: integer; // Добавляем переменную y3 для чисел, кратных 3
begin
  y2 := 0; // Инициализируем переменную y2 для чисел, кратных 2
  y3 := 0; // Инициализируем переменную y3 для чисел, кратных 3
  For x := 10 to 99 do
  begin
    if x mod 2 = 0 then // Проверяем кратность 2
      y2 := y2 + 1;
    if x mod 3 = 0 then // Проверяем кратность 3
      y3 := y3 + 1;
  end;
  writeln('количество чисел, кратных 2, равно ', y2);
  writeln('количество чисел, кратных 3, равно ', y3);
end.

В данной программе мы добавили переменную `y3` для подсчета чисел, кратных 3, и соответствующую проверку в цикле. Теперь программа будет вычислять и выводить количество чисел, кратных как 2, так и 3.