131. т.к. N=4, то i= 2, следовательно - 2 бита
133. 65 536 = 2^16, 16:8= 2 БАЙТА
137. 16 777 216 = 2^24, i=24
I=K*i=1024*768*24= 18 874 368 бит : 8 = 2 359 296 байт : 1024 = 2304 кбайт
остальные прости не знаю)
Можно так:
Program VremjaGoda;
Var i:integer;
Begin
Writeln ('введите номер месяца');
Begin
For i:=1 to 12 do
Begin
If i=1 or i=2 or i=12
Then writeln ('зима');
Else
If i=3 or i=4 or i=5
Then writeln ('Весна');
Else
If i=6 or i=7 or i=8
Then writeln ('Лето');
Else
If i=9 or i=10 or i=11
Then writeln ('Осень');
End;
End;
End.
Можно использовать Case.
Программный сбой... Если вы намерено пытаетесь открыть камеру, и в других приложениях она не открывается тоже, то советую сделать сброс настроек, если не помог и сброс, то вам нужно обратиться с сервисный центр
Помогите решить задачу в паскале.Даны три массива:A = {17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3},B = {-1.2, 4
Extorned
Type
V = array of real;
function SumPos(a:V): real;
var
i: integer;
s: real;
begin
s := 0;
for i := 0 to Length(a, 0) - 1 do
if a[i] > 0 then s := s + a[i];
Result := s
end;
var
A, B, C: V;
begin
A := new real[10] (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3);
B := new real[12] (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4);
C := new real[8] (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3);
writeln('Сумма положительных элементов массива А ',SumPos(A));
writeln('Сумма положительных элементов массива B ',SumPos(B));
writeln('Сумма положительных элементов массива C ',SumPos(C));
end.
Тестовый прогон:
Сумма положительных элементов массива А 63.5
Сумма положительных элементов массива B 70.3
Сумма положительных элементов массива C 27.2