Question

Даю 40 баллов!Срочно!Сделать алгоритм на паскале. Задать любое число n и вычислить сколько нечетных чисел между 0 и n. Алгоритм сделать через while.

Answer 1

var n,i,k: integer;

begin

write('n = ');

readln(n);

i:=0;

k:=0;

while i<=n do

begin

if i mod 2 <> 0 then k:=k+1;

i:=i+1;

end;

writeln('k = ',k);

end.

Пример:

n = 10

k = 5

Answer 2

program eee;

var

q,w,n: integer;

begin

readln(n);

q:=0;

w:=0;

n:=n+1;

while n>1 do begin

n:=n-1;

if n div 2>0 then

q:=q+1;

if n div 2=0 then

w:=w+1;

end;

writeln('Нечетных чисел: ',q);

writeln('Четных чисел: ',w);

end.

Answer 3

Благодарю за предоставленные баллы! Ниже представлен алгоритм на языке Паскаль (Pascal) для подсчета количества нечетных чисел между 0 и заданным числом n с использованием цикла while:

pascalCopy code
program CountOddNumbers;

var
  n, count, num: integer;

begin
  writeln('Введите число n:');
  readln(n);
  
  count := 0;
  num := 0;
  
  while num <= n do
  begin
    if num mod 2 <> 0 then // Проверяем, является ли число нечетным (остаток от деления на 2 не равен 0)
      count := count + 1; // Увеличиваем счетчик нечетных чисел
    
    num := num + 1; // Переходим к следующему числу
  end;
  
  writeln('Количество нечетных чисел от 0 до ', n, ': ', count);
end.

Когда вы запустите этот алгоритм, он попросит вас ввести число n, а затем вычислит количество нечетных чисел между 0 и n.