Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст
вот она
program ohotnik;
uses crt;
var i: integer;
begin
clrscr;
textcolor(4);
write(' ka}i{gbiu ');
textcolor(12);
write(' oxothuk ');
textcolor(14);
write(' }i{ejiaet ');
textcolor(2);
write(' 3hatb ');
textcolor(3);
write(' rge ');
textcolor(1);
write(' cug9t ');
textcolor(5);
write(' fa3ahbi ');
readln;
end.
зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..
a*b*i=i
n=2^i
где a*b-размер изображения, n-количество цветов,i-количество памяти на один пиксел, i-вес рисунка(бит)
1)64*64*i=512*8
i=1
n=2
ответ: 2
2)256=2^i
i=8
a*b*8=2400*8
a*b=2400
ответ: 2400
3)n1=4=2^2
i1=64*128*2=2^14бит=2кбайт
n2=16=2^4
i1=32*32*4=2^12бит=0,5кбайт
ответ: на первое изображение потребуется в 4 раза больше места
program fasf;
var
n,q: integer;
write('введите этаж: ');
readln(n);
q: =n*4;
writeln('квартиры: ',q,q-1,q-2,q-3);
qbasic не знаю, знаю только вижуал бэйсик
for i = 1 to 10
a(i) = i
next i
for i = 1 to 5
b = a(10+1-i)
a(10+1-i) = a(i)
a(i) = b
s = 0;
for i = a to b
if (i mod 2 =1) and (i mod 3 = 0) then
s = s + 1
end if
Популярные вопросы