1) Вывести все числа от a до b,но заранее неизвестно, a>b или a<b2) Вывести нечётные...

Question

1) Вывести все числа от a до b,но заранее неизвестно, a>b или a2) Вывести нечётные числа из диапозона [a,b],где a и b могут быть как чётными,так и нечётными,а также отрицательными,но обязательно a3) В одной программе посчитать две суммы из [a,b] (те же условия,что и в задании 2)
S-сумма всех нечётных чисел
Sym-сумма чисел,кратных 3
Cами числа выводить не нужно
4)Найти a в степени n,где a и n целые числа, но могут быть отрицательными

(задачи можно делать либо через For,либо через While)

Comments

Ща

Answer 1

1) var a,b,r,i:longint; begin Readln(a,b); If a> b then begin r:=a;a:=b;b:=r;end; For i:=a to b do Writeln(I); end. 2) var a,b,i:longint; begin Readln(a,b); For I:=a to b do If I mod 2<>0 then writeln(i); End. 3) var a,b,i,s,symm:longint; begin Readln(a,b); s:=0;symm:=0; For I:=a to b do begin If I mod 2<>0 then s:=s+I; If I mod 3=0 then symm:=symm+I; End; Writeln(s,symm); end. 4) var r,p,a,n,i:longint; begin readln(a,n); r:=n; If n<0 then r:=-n; p:=1; for i:=1 to r do p:=p*a; if n<0 then writeln(1/p) else writeln(p); end.

Comments

В странно что в строчку но думаю разберешься

---

Я все задачи тебе без проверки на паскале печатаю

---

я проверила,вообщем только 3 и 4 правильно

---

а 1 и 2 че

---

у меня есть пример выполнения и там написано какие числа можно ввести

---

и что получится,вообщем я ввожу и не сходится

---

1) var a,b,i:longint;
begin
Readln(a,b);
If aFor i:=a to b do
Writeln(I);
end
else
begin
for i:=b to a do
Writeln(I);
end;
end.

---

попробуй так

---

если 3 работает то и 2 должна работать