Запишите по правилам Pascal следующие выражения

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

проводник - абориген.

потому что если бы он спросил у пришельца, которые всегда лгут, "кто ты? ", то тот солгал, сказав "абориген". и проводник пришел и сказал правду.

а если бы проводник был бы пришельцем, спросив у аборигена "кто ты? ", то абориген   сказал бы правду. но пришелец путешественнику соврал бы, сказав, что тот пришелец.

один пиксель может содержать любой из 256 = 2^8 цветов => для кодирования 256 цветов нужно 8 бит => для кодирования одного пикселя нужно 8 бит.

program cikl;

var a,b,c,i,j,k: integer;

begin

writeln('bbedute a,b,c');

readln(a,b,c);

i: =a;

j: =b;

k: =c;

a: =j;

b: =k;

c: =i;

writeln('a=',a,'b=',b,'c=',c);

readln

end.