Question

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

Answer 1

Pascal

var

 i, k, p:integer;

begin

 readln(k);

 i:=2;

 p:=0;

 while i <= k do begin

   i:=i+2;

   inc(p);

 end;

 write(p)

end.

Answer 2

Конечно, вот пример программы на Pascal, которая будет выводить количество четных чисел в числовом ряду с заданным последним числом:

pascalCopy code
program CountEvenNumbers;

var
  userInput, count, i: integer;

begin
  writeln('Введите число:');
  readln(userInput);

  count := 0;

  for i := 1 to userInput do
  begin
    if i mod 2 = 0 then
      count := count + 1;
  end;

  writeln('Количество четных чисел: ', count);
  readln;
end.

Программа запрашивает у пользователя число, а затем использует цикл for для перебора чисел от 1 до введенного числа. Внутри цикла проверяется, является ли текущее число четным с помощью операции mod. Если число четное, то значение переменной count увеличивается на 1. По завершению цикла выводится количество четных чисел.

Надеюсь, это поможет вам! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.