1) Вывести все числа от a до b, но заранее неизвестно, a>b или a
2) Вывести нечётные числа из диапозона [a, b], где a и b могут быть как чётными, так и нечётными, а также отрицательными, но обязательно a
3) В одной программе посчитать две суммы из [a, b] (те же условия, что и в задании 2)

S-сумма всех нечётных чисел

Sym-сумма чисел, кратных 3

Cами числа выводить не нужно

4) Найти a в степени n, где a и n целые числа, но могут быть отрицательными

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

Question

Информатика

Нимфа

27 апреля, 15:09

1) Вывести все числа от a до b, но заранее неизвестно, a>b или a
2) Вывести нечётные числа из диапозона [a, b], где a и b могут быть как чётными, так и нечётными, а также отрицательными, но обязательно a
3) В одной программе посчитать две суммы из [a, b] (те же условия, что и в задании 2)

S-сумма всех нечётных чисел

Sym-сумма чисел, кратных 3

Cами числа выводить не нужно

4) Найти a в степени n, где a и n целые числа, но могут быть отрицательными

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

+3

Ответы (1)

Знаете ответ?

Вира · 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 20 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 20 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.