Предмет: Информатика,
автор: MihailMA
Помогите составить программу на паскль:даны 2 целых числа а и в найту семму всех натуральных чисел от а до в включительно.
Ответы
Автор ответа:
1
program raf105;
var
a,b,sum,i: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
for i:=a to b do
if i > 0 then
sum:= sum+i;
writeln('Сумма всех Натуральных чисел от ',a,' до ',b,' = ',sum);
end.
PascalABC 3.4.2
Похожие вопросы
Предмет: Геометрия,
автор: balaguraanton42
Предмет: Литература,
автор: gusakovvlad96
Предмет: Физкультура и спорт,
автор: catmdsf
Предмет: Биология,
автор: Ymhaя