Screen 7 color 1, 2 for x = 1 to 200 step 10 pset (x, 50), 4 sleep 1 pset (x, 50), 2 next x endдвижение точки.без dosboxcolor 1, 2for x = 1 to 20 cls locate 5, x print "*" sleep 1next xend
Спасибо
Ответ дал: Гость
1)10см=3,937дюма
dpi - точек на дюйм
3,937*1000=3937 - точек
3937*3937=15499969 точек
каждая точка кодируется 2-мя байтами
всего 30999938 байт
1 мегабайт = 1024*1024=1048576
на картинку 29,56 мегабайта
2) 256 1 байт
200*100=20000 пикселей
1 килобайт = 1024 байта
картинка займет 20000/1024=19,5 килобайта
ps а вообще, каждое нужно писать отдельно
Ответ дал: Гость
program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.
Популярные вопросы