ПЖ НА ОБЫЧНОМ ПРОСТОМ ПАСКАЛЕ ABC не с суппер пуппер версиями (30 баллов)
Задача:
Найти сумму четных целых чисел на промежутке от 1 до K.
Формат ввода:
На вход подается неотрицательное, целое число K, не превосходящее 30000.
Формат вывода:
Целое число.
Пример входных данных
10
Пример выходных данных
30
ПЖ ОЧЕНЬ НАДО
Ответ
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.
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.
Дополнительные материалы:
Ответ
1
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
begin
readln(k);
s:=0;
i:=2;
while i<=k do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
end.
Пример:
10
30
36290 (должно получится)
-29246(у тебя)