1Юліана1
05.11.2020 20:40

На обычном простом паскале abc не с суппер пуппер версиями (30 ) : найти сумму четных целых чисел на промежутке от 1 до k. формат ввода: на вход подается неотрицательное, целое число k, не превосходящее 30000. формат вывода: целое число. пример входных данных 10 пример выходных данных 30 надо

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
лізахоменко2002
08.10.2020 03:48
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
На обычном простом паскале abc не с суппер пуппер версиями (30 ) : найти сумму четных целых чисел на
0,0(0 оценок)
Ответ:
liza13100
08.10.2020 03:48
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота