Вычислить сумму всех положительных чисел от - 10 до 10 паскаль
Вычислить сумму всех положительных чисел от - 10 до 10
паскаль
Гость
Ответ(ы) на вопрос:
Гость //Pascal ABC.NET v3.1 сборка 1172
Var
i,k:integer;
begin
for i:=-10 to 10 do
if i>0 then k:=k+i;
writeln(k);
end.
Не нашли ответ?
Похожие вопросы