Question

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

1)найти сумму элементов от А до Б

2)вывести все элементы от А до Б при любых значениях А и Б (целых)

Answer 1

Program n1;
Uses CRT;
Var a,b,s,i: integer;
begin
writeln('Vvedite A i B');
readln(a,b);
If a>b then
for i:=b to a do
begin
writeln(i);
s:=s+i;
end
else
if b>a then
for i:=a to b do
begin
writeln(i);
s:=s+i;
end
else writeln('ravny');
writeln('Summa = ',s);
readln
end.