===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
Var
A,i:integer;
P:real;
Begin
P:=1;
WriteLn('Введите 10 целых чисел');
For i:= 1 to 10 do
Begin
Read(A);
if (10<=A)and(A<=20) then P:=P*A;
End;
WriteLn('P = ',P);
End.
Мы сдвигаем вправо на 4 элемента C->F $C ->$C
сдвигаем вниз на 2 элемента 3->5 1->3
в D3 будет:
=F5+$C3
=Мин и выделяешь ячейки из которых тебе нужно выделить минимальное
1,5 Мбайт = 1,5*1024 Кбайт = 1,5*1024*1024 байт = 1,5*1024*1024*8 бит
Память для одного пикселя = 1,5*1024*1024*8 / (1024*512) = 24 бита
Количество цветов в палитре = 2^24 = 16 777 216