Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 800×480 и палитрой из 256 цветов
Очень ваще капец !!111!11

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

1+2+3+4+5+6+7+8+9+10+11+12=78

78: 2=39

делим так, чтобы в обеих частях сумма чисел была 39. для этого линия раздела должна проходить между 3 и 4, а также между 9 и 10. в одной половине 10+11+12+1+2+3=39 и в другой 4+5+6+7+8+9=39

разложим 78 на простые множители:

78 | 2

39 | 3

13 | 13

  1

так как на циферблате всего 12 чисел, получаем, что его ещё можно разделить на 3 и на 6 частей, чтобы суммы чисел в частях были равны:

78: 3=26 (11+12+1+2=26, 9+10+3+4=26, 5+6+7+8=26)

78: 6=13 (12+1=13, 11+2=13,10+3=13, 9+4=13, 8+5=13, 7+6=13)

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

или

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;

сохранить информацию о наблюдаемом объекте 

передать информацию о нём другим людям

испытать на модели работу объекта ,если испытание объекта-оригинала  опасно или дорого