в паскале задачи решить (программу написать)
1)найти сумму элементов от А до Б
2)вывести все элементы от А до Б при любых значениях А и Б (целых)
More Questions From This User See All
в паскале задачи решить (программу написать)
1)найти сумму элементов от А до Б
2)вывести все элементы от А до Б при любых значениях А и Б (целых)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.