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.

Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;   сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;   т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. байт состоит из 8 бит.  8 / 4 = 2 (количество битов чтобы закодировать каждый символ)  двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);