• Составьте программу для нахождения суммы всех чисел от А до В. Используйте цикл FOR на примере задачи в классной работе.

Ответы 2

  • var a,i,k,b,sum:integer;

    begin

    read(a,b);

    for i:=a to b do begin

    sum:=sum+i;

    end;

    write(sum);

    end.

  • program Hello;

    var i,summ,a,b:integer;

    begin

    summ := 0;

    readln(a);

    readln(b);

    for i:= a to b do:

       summ = summ + i;

    end;

    writeln(summ);

    end.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years