==================================================================
==================================================================
==================================================================
С клавиатуры вводится число x, затем проверяется: если это число x меньше -3, то "y" будет -3; если -3 меньше или равно x, а x меньше нуля, то y=x и т.д
написал на js. по аналогии и на паскаль можно:
начало
var year = prompt('Какой сегодня год?'); ввод
var days = prompt('Сколько дней в текущем месяце?'); ввод
var today = prompt('Сегодняшнее число?'); ввод
var total = +days - +today; вычисление
alert('До конца месяца осталось: ' + total); вывод
конец
Смотря сколько цветов
<span>256 - 1 пиксель -1 байт </span>
<span>2^24 1 п - 3 байта </span>
<span>2^32 1 п - 4 байта</span>
Var s,gl: string;
<span> i: integer;
</span><span> ps: set of integer;
</span><span>begin
</span><span> gl:='аеёийоуыэюя';
</span><span> write('строка: ');
</span><span> readln(s);
</span><span> ps:=[];
</span><span> i:=2;
</span><span> repeat
</span><span> if pos(s[i],gl)>0 then ps:=ps+[i];
</span><span> i:=i+2;
</span><span> until i>length(s);
</span><span> write('множество четных позиций с гласными: ');
</span><span> foreach i in ps do write(i,' ');
</span><span>end.
</span>
Результат работы:
строка: Это строка для проверки
<span>множество четных позиций с гласными: 20 18 10 8 14
</span>
K=16×32×40
i=16
I-?
I=K×i=16×32×40×16=327680 битов