Предмет: Информатика,
автор: ппс
Помогите составить программу решения задачи в паскаль АВС.
Даны два целых числа А и В (А меньше В). Найти сумму всех целых чисел от А до В включительно.
Ответы
Автор ответа:
0
var a, b, c, i: integer;
begin
readln(a, b);
for i := a to b do c := c + i;
writeln(c);
end.
Проверил)
begin
readln(a, b);
for i := a to b do c := c + i;
writeln(c);
end.
Проверил)
Интересные вопросы
Предмет: Математика,
автор: TAISIABUSLO83
Предмет: Математика,
автор: ksenees
Предмет: История,
автор: kovalevskijaroslav1
Предмет: Алгебра,
автор: аорта
Предмет: Математика,
автор: wowka2