Предмет: Информатика,
автор: Камико69тян
Написать программу к задаче . Даны два целых числа A и В (А<В). Найти сумму всех целых чисел от А до В включительно.
Ответы
Автор ответа:
0
Pascal
var
a,b,i,sum:Integer;
Begin
Read(a,b);
for i:=a to b do
sum:=sum+i;
Writeln(sum);
end.
var
a,b,i,sum:Integer;
Begin
Read(a,b);
for i:=a to b do
sum:=sum+i;
Writeln(sum);
end.
Интересные вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Английский язык,
автор: Аноним
Предмет: Химия,
автор: mica635asem
Предмет: Геометрия,
автор: nikusha99
Предмет: Алгебра,
автор: safonovadasha2