В паскале задачи решить (программу написать) 1)найти сумму элементов от А до Б 2)вывести все элементы от А до Б при любых значениях А и Б (целых)
В паскале задачи решить (программу написать) 1)найти сумму элементов от А до Б 2)вывести все элементы от А до Б при любых значениях А и Б (целых)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы