<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=Arr('первое', 'второе','третье','четвертое','пятое');
var p,r:real;
var c:char;
Write('Введите первое число: '); Readln(r);
for var i:=0 to 3 do begin
Write('Выберите ',s[i], ' действие (a) сложить, b) вычесть,');
Write('c) умножить, d) разделить): '); Readln(c);
Write('Введите ',s[i+1],' число: '); Readln(p);
case c of
'a':r+=p;
'b':r-=p;
'c':r*=p;
'd':r/=p;
end;
Writeln('Результат: ',r)
end
end.
Ответ:
b=1
Объяснение:
Используем команды по порядку
12111
1: 17-b
2: (17-b)/2
3-5: (17-b)/2-b-b-b
В итоге получили 5,значит:
(17-b)/2-b-b-b=5 теперь просто найдем b
8,5-0,5b-b-b-b=5
3,5-3,5b=0
3,5b=3,5⇒b=1
Ответ:b=1
125 Кбайт=125*1024*8=1024000 бит
0010 - зеленый, 1111 - код последнего цвета
Всего 16 цветов(1111=15, счет с 0), 16=2⁴, 4 бита на 1 пиксель
1024000/4=256000
MxN - разрешающая способность
M*N = 256000
M и N могут быть любыми, но чтобы они удовлетворяли условию.
Например: 500*512 или 640*400
Интернет в помощь. Что было все нормально
Nxnfjfkfiffjfjfjfjjchcchchchjcjvjcncnxmcmcmmc