A)var k,n:integer;
begin
read(k);
if k div 7=k/7 then n:=7 else
if k+1 div 7=k+1/7 then n:=6 else
if k+2 div 7=k+2/7 then n:=5 else
if k+3 div 7=k+3/7 then n:=4 else
if k+4 div 7=k+4/7 then n:=3 else
if k+5 div 7=k+5/7 then n:=2 else
if k+6 div 7=k+6/7 then n:=1;
writeln(n);
end.
б)<span>var k,n:integer;<span>begin
read(k);
if k-1 div 7=k-1/7 then n:=7 else
if k div 7=k/7 then n:=6 else
if k+1 div 7=k+1/7 then n:=5 else
if k+2 div 7=k+2/7 then n:=4 else
if k+3 div 7=k+3/7 then n:=3 else
if k+4 div 7=k+4/7 then n:=2 else
if k+5 div 7=k+5/7 then n:=1;
writeln(n);
end.</span></span>
1) 10000101(двоичная), 205(Восьмеричная), 85(шестнадцатеричная). 2)504(Десятеричная) 1 * 2^9 + 1 * 2^8 + 1 * 2^7 + ... + 1 * 2^4 + 0 + 0 + 0 3)770(Восьмеричная), 1F8(Шестнадцатеричная) 4)400(Десятичная) 5)510(десятичная) 6)42F(Шестнадцатеричная) 7)162464(Восьмеричная)
Удачи)
Программа на языке программирования Pascal:
var
x, y: real;
begin
read(x, y);
if (y > sqr(x)-2) and ((y < x) or (y < -x)) then
writeln('YES')
else
writeln('NO')
end.
Информация может быть слуховая, зрительная и т.д. Это то, что ты например увидел и уже знаешь как тот или инной предмет выглядит
Дано: растр 1024*768 N=16777216
Найти: I - объем
Решение: N=
, где i- глубина цвета, N -палитра
16777216=
, i=24 бит
I=1024*768*24 бит=18874368 бит=2359296 байт=2304Кб=
2,25Мб
