На обычном простом паскале abc не с суппер пуппер версиями (30 ) : найти сумму четных целых чисел на промежутке от 1 до k. формат ввода: на вход подается неотрицательное, целое число k, не превосходящее 30000. формат вывода: целое число. пример входных данных 10 пример выходных данных 30 надо
maxim2006c
2
20.09.2019 04:10
0
Другие вопросы по теме Информатика
TTe4enkaTyan
02.12.2020 19:35
DarkGay
02.12.2020 19:35
lenin1488
02.12.2020 19:35
LoL228LoL228LoL228
02.12.2020 19:35
ОлегВолгин228
02.12.2020 19:36
саша4265
02.12.2020 19:36
sanek2031
02.12.2020 19:36
Lunitoes
02.12.2020 19:38
Популярные вопросы
- Установите формулу углеводорода w (c) = 80 d (h2) =15...
3 - Встихотворении е.пермяка скрипучая дверь найти оценочные слова 45...
1 - Одна компания выступила лотерельные билеты трех разрядов для молодых...
2 - Скоординатной прямой сложите числа а)2 и -5 , б)-4 и 6 , в)-3 и 2 ,...
2 - Чтобы приготовить фруктовый торт понадобилось 45 вишен,ягод клубники...
2 - Пример из , где упомяналось важность принятия решения полководцами...
1 - Принадлежит ли графику функции y=x7 точка a(2; 128) b(-2; 128)...
2 - Какие из перечисленных веществ а)cu(no3)2 b)no b)no2 г)h2o д)h2 являются...
1 - Сравните . решите каждую двумя а) из двух посёлков, расстояние между...
3 - Сочинение на тему в профессии моих родителей не меньше 5 предложений...
1
begin
readln(k);
s:=0;
i:=2;
while i<=k do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
end.
Пример:
10
30
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.