Число 12(10)=1100 в шестнадцати разрядах будет записано следующим образом: ( там должно быть 16 символов )

p - произведениеs - суммаi - цикловая переменная1. цикл с предусловием whilevarp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; while i < 200 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i;   end; i : = i + 1; [или ing(i)]end; writeln(p); writeln(c)end.2. цикл с постусловием repeat varp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; repeatif i mod 5 = 0 thenbeginp : = p * i; s : = s + i;   end; i : = i + 1; [или ing(i)]until i > = 200; writeln(p); writeln(c)end. 3. цикл for varp, s, i : longint; [или integer]beginp : = 1; s : = 0; for i : = 101 to 199 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i;   end; end; writeln(p); writeln(c)end.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

залить в кувшин 3-х литровый воды до полна,перелить её в кувшин ёмкостью 8 литров.эту операцию проделать 3 раза,тогда в маленьком кувшине останется ровно литр воды.вылить всё из большого,залить туда воду из маленького(это 1 литр),затем залить в большой 3 маленьких и тогда получится 7 литров в большом кувшине.

ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед