var s : string; k,f : longint; begin readln(s); val(s[1],k,f); if f< > 0 then writeln('некоректно введена строка') else if length(s)-1=k then writeln('равно') else writeln('неравно'); end.
Ответ дал: Гость
var
i,n: integer;
begin
readln(n);
for i: =1 to n-1 do write(i*i: 5);
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 раза больше места
Популярные вопросы