Впаскале решите : ) 1. в строке слова разделены пробелами. определить на какую букву оканчивается четвертое слово в предложении. 2.дана последовательность слов. напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: в слове нет повторяющихся букв.

1) pascal abc.net

var s: string; p: boolean; i,k: integer;

begin

p: false;

k: =0;

read(s);

for i: =1 to lenth(s) do

begin

if s[i]=' ' then inc(k);  

if k=5 then p: =true else p: =false;

if p then writeln(s[i-1]);

end;

end.

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

program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.

k= 2 в степени а

a=глубина цвета

m=количество точек по горизонтали

n=количество точек по вертикали

k=количество цветов

v=объём видеопамяти

k=16 777 216   =2 в 24 степени

a=24

v  =  m  ×  n  ×  a 

v=(1024×768×24)/(8×1024×1024)=2,25 мб