1. прочитать с клавиатуры число n, затем прочитать n чисел и вывести на экран сумму тех из них, которые делятся на 3. 2. прочитать с клавиатуры число n и вывести на экран сумму его четных цифр 3. вывести на экран все целые числа от а до b , кратные некоторому числу с 4. вывести на экран квадраты чисел от 1 до 100.

1. var n,s,k: integer begin read(n); for i: =1 to n do begin read(k); if k mod 3 = 0 then s: =s+k; end; write(s); end. 2. var s,k,n: integer; begin read(n); while n> =0 do begin k: =n mod 10; if k mod 2=0 then s: =s+k; n: =n div 10; end; write (s); end. 3. var i, a, b, c: integer; begin read(a); read(b); read(c); fit i: =1 to b do begin if i mod c=0 then write (i); end; end. 4. var i: integer; begin for i: =1 to 100 do writeln(i*i); end.

Если ты в 10-11, то необходимо с массивом: const n=10; var a: array[1..n] of integer;           i,min,max: integer;           sum: real; begin for i: =1 to n do  readln(a[i]); min: =a[1];   max: =a[1]; for i: =1 to n do begin if a[i]> max then max: =a[i]; if a[i]< min then min: =a[i]; end; sum: =(min+max)/2; writeln(sum); end. без массива: uses crt; const n=10; var   x,i,min,max: integer;       sum: real; beginmin: =10000; max: =-10000; for i: =1 to n do beginreadln(x); if x> max then max: =x; if x< min then min: =x; end; sum: =(min+max)/2; writeln(sum); end.

3542816 (из 10 в 2 систему исчисления)    схема  проста  делим  число  на  два  до  тех  пор  пока  не  останется  1(т.е. поделили, затем еще раз, и  еще раз, и    надеюсь  что  такое  остаток  от  деления  ясно,  так  вот  остатки  от  деления  это  и  есть  двоичная  система,  но  записывать  число  необходимо  справа  налево результат  3542816(10) = 1101100000111100100000(2) 110011101 (из 2 в 10)  умножаем  на  2  в  степени числа,  степень  числа  считается справа  налево  начиная  с  0.,  т.е  1*2: 0+0*2^1+1*2^2+ 1*2^3+ 1* результат     110011101(2) = 413(10) 11010111 (из 2 в 8)    там  должна  быть  таблица,  уверен  вы  ее  записывали,  смысл  в  том  чтобы  по три  цифры  (справа считая)  переводим  в  8чную  систему  справа  налево-111-010-011 результат  11010111(2) = 327(8) 152fc4 (з 16 в 10, из 10 в 2)    так  же  как  и  из  двоичной  в  десятичную  но  теперь  числа  умножаем не  на  2  а  на  16,  т.е  4*16^0+12* а  как  из  десятичной  в  двоичную  уже  рассказывал, результат  152fc4(16) = 1388484(10)  1388484(10) = 101010010111111000100(2)