Информатика! найдите сумму чисел от 1 до 50

кис88 кис88    3   30.07.2019 16:20    0

Ответы
котик926 котик926  03.10.2020 17:41
Var
    i, s: integer;

begin
    for i := 1 to 50 do
        s := s + i;
    writeln('s = ', s);
end.
ПОКАЗАТЬ ОТВЕТЫ
BackTiger007 BackTiger007  03.10.2020 17:41
N(N+1)/2   50(50+1)/2     50(51)/2 =1275 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика