Question

ПЖ НА ОБЫЧНОМ ПРОСТОМ ПАСКАЛЕ ABC не с суппер пуппер версиями (30 баллов)
Задача:

Найти сумму четных целых чисел на промежутке от 1 до K.

Формат ввода:

На вход подается неотрицательное, целое число K, не превосходящее 30000.

Формат вывода:

Целое число.

Пример входных данных

10
Пример выходных данных

30
ПЖ ОЧЕНЬ НАДО

Answer 1

program n1;
var x, y: integer;
begin 
readln (x); 
while x>1 do begin
if x mod 2 = 0 then y:=y+x; 
 x:=x-1; 
 end;
writeln (y);
end.

Answer 2

var k,s,i: integer;
begin
readln(k);
s:=0;
i:=2;
while i<=k do
 begin
  s:=s+i;
  i:=i+2;
 end;
writeln(s);
end.

Пример:
10
30