Молодец! .....................................
Var
i, sum: integer;
begin
sum := 0;
i := 5;
repeat
sum := sum + i * i;
i := i + 1;
until(i > 10);
write(sum);
end.
В виде таблицы не умею вот паскаль.
Program v;
var x, y:integer;
begin
for x:= -2 to 2 do y=x*(sqr(x))-sqr(x)+2*sqrt(x);
writeln(x,y);
end.
Жив був собі майстер та не було у нього друзів. Кожного дня просив він у Бога ,щоб знайшов йому вірного й розумного товариша. Ось одного дня майстер пішов у ліс; йшов він по дрова на зиму. Ступаючи обережними кроками натрапив на щось. Це була стара нікому не потрібна, трішки рвана книга. Прийшовши додому майстер залюбки її прочитав. Там він дізнався що таке клавіатура, байт, монітор, системний блок , інформація та багато іншого. Майстер того ж дня розпочав роботу над створенням комп”ютера! І невдовзі він добився свого. Вже через два тижні майстер завантажував на жорсткий диск інформацію ;вільно користувався клавіатурою та мишкою. З того часу жив майстер з вірним другом комп'ютером і не тужив.
32 кбайт * 1024 * 8 = 262144 бит
256 * 128 = 32768 пикселей
262144 бит / 32768 пикс = 8 бит на пиксель
2^8 = 256 максимально число влезет.