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.