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

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.

1. записать числа встолбик, так чтобы цифры самого младшего разряда чисел (единицы) расположились одна под другой (на одной вертикали).

2. вычесть цифры младшего разряда. примечание - если вычитаемое больше уменьшаемого, то следует занять единицу из старшего разряда и после этого вычесть.

3. записать результат под горизонтальной чертой на вертикали единиц.

4. повторить пункты 2 и 3 для всех разрядов с учетом переносов из старших разрядов.