AdorarneИнформатика Написать программу в Паскале Задано целое положительное число N>1. Вычислить сумму четных целых чисел вдиапазоне [1. . N]. Важно Для решения задач использовать цикл с предусловием
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
var
n,s,i : integer;
begin
s:=0; i:=0;
write('N = '); read(n);
while n <> i do
begin
i:=i+1;
s:=s+i;
end;
writeln('Сумма ', n, ' чисел = ',s);
end.
48
ChicherinaЧтобы ответить необходимо зарегистрироваться.
