Наведіть приклади циклів під час застосування правил математики та української мови!Пожайлуста

1.123456789-номер телефона

2.мама помыла посуду-ткстовая информация

3.какой нибудь рисунок

4.музыка

5.кино 

varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; 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 мб

var s: string;

begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.