Помогите написать задачу на паскале (с оператором For) даны два ...

Question

Помогите написать задачу на паскале (с оператором For) даны два ...

Сергей

Помогите написать задачу на паскале (с оператором For) даны два целых числа A и B(A < B).Найти сумму всех целых чисел от A до B включительно

Есть ответ

17.12.2022

364

Ответ

Answer 1 · 17.12.2022

var A, B, i, Summ : Integer;begin

Writeln('Введите числа:'); Readln(A, B);

Summ := 0; for i := A to B do Summ := Summ + i; Writeln('Сумма равна: ', Summ); Readln;end.

Помогите написать задачу на паскале (с оператором For) даны два ...

Помогите написать задачу на паскале (с оператором For) даны два целых числа A и B(A < B).Найти сумму всех целых чисел от A до B включительно

Ответ

var A, B, i, Summ : Integer;begin Writeln('Введите числа:'); Readln(A, B); Summ := 0; for i := A to B do Summ := Summ + i; Writeln('Сумма равна: ', Summ); Readln;end.

var A, B, i, Summ : Integer;begin

Writeln('Введите числа:'); Readln(A, B);

Summ := 0; for i := A to B do Summ := Summ + i; Writeln('Сумма равна: ', Summ); Readln;end.