Определить день недели по дате visual basic : написать программу, которая по заданной дате определяет соответствующий ей день недели. метод основан на формуле зеллера. диапазон вводимых лет 1582 — 4902. номер дня недели (воскресенье-0, понедельник--6) равен остатку от деления на 7 значения выражения: ([2.6m-0.2]+d +y +[у/4]+[с/4]-2с)+777 d — номер дня в месяце m - номер месяца в году (нумерация начинается с марта (1), апрель ( январь и февраль считаются месяцами с номером 11 и 12 предыдущего года. y — год столетия (0-99) с — номер столетия (15-49) [ ] — целая часть (в vb целая часть x - int(x) ) надо сделать через select case заранее

Program aaa; var   s, b, l, c: real; begin   writeln('введите s, b, l');   readln(s, b, l);   c : = b / 100 * s * 2 * l;   writeln('стоимость поездки: ', c) end. program aaa; {написать программу пересчета веса из фунтов (f) в килограммы (kg) (1 фунт равен 409,5 г).}  var   f,kg: real; begin   writeln('введите f');   readln(f);   kg: =f*409.5/1000;   writeln(f,' фунтов = ', kg: 8: 3,' килограмм') end. program aaa; {написать программу конвертер величин:   с клавиатуры вводиться вес информации в байтах (b).  на выходе получаем перевод величины в: биты (bi) , килобайты (kb), мегабайты (mb), гигабайты (gb). 1байт = 8 бит 1кб (килобайт) = 1024 байт 1мб (мегабайт) = 1024 кб 1гб (гигабайт) = 1024 мб 1тб (терабайт) = 1024 гб}  var   b,bi,kb: real; mb,gb,tb: decimal; begin   writeln('введите b');   readln(b);   bi: =b*8;   kb: =b/1024;   mb: =kb/1024;   gb: =mb/1024;   tb: =gb/1024;   writeln(b,' байт = ', bi,' бит');   writeln(b,' байт = ', kb,' килобайт');   writeln(b,' байт = ', mb,' мегабайт');   writeln(b,' байт = ', gb,' гигабайт');   writeln(b,' байт = ', tb,' терабайт') end. //формат вывода (к-во знаков определите сами

Цвет задается с 16-го кода, т.е. 0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f (0-самое маленькое, f-самое большое) любой цвет - комбинация красного (r), зеленого(g) и синего(b) #_ _   _ _   _ _     r     g     b 1.  < body bgcolor=#ee00ee> -  почти максимально  задействованы красный и синий цвета (r-ее и  b-ее), зеленого нет (g-00), а красный+синий= розовый2.  < body bgcolor=#64с 8ff> красного мало (64) зеленого достаточно много(с8), а синий - макс., значит считаем только зеленый + синий = голубой