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

Question

Информатика

Юстиниан

14 апреля, 23:27

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

+2

Ответы (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.